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DYCABCD - A PROGRAM FOR CALCULATING LINEAR A, B, C, AND D 
MATRICES FROM A NONLINEAR DYNAMIC ENGINE SIMULATION 

by Lucille C. Geyser 
Lewis Research Center 


SUMMARY 

A digital computer program, DY GABCD, has been developed that will generate 
linearized, dynamic models of simulated turbofan and turbojet engines. DY GABCD is 
based on an earlier computer program, DYNGEN, that is capable of calculating simu- 
lated nonlinear steady- state and transient performance of one- and two- spool turbojet 
engines or two- and three- spool turbofan engines. 

Most control design techniques require linear system descriptions. For multiple- 
input/multiple- output systems such as turbine engines, state space matrix descriptions 
of the system are often desirable. DYGABCD computes the state space matrices, 
commonly referred to as the A, B, C, and D matrices, required for a linear system 
description. The report discusses the analytical approach and provides a users manual, 
FORTRAN listings, and a sample case. NASA TN D-7901, describing DYN GEN, is a 
necessary adjunct to this report. 


INTRODUCTION 

Digital computers are more frequently being used to accurately simulate the steady- 
state and transient performance characteristics of turbojet and turbofan engines. These 
simulations are capable of modeling these engines over die complete range of power 
settings and flight conditions. DYNGEN (ref. 1) is one such engine simulation that is 
generalized to permit the user to model many different engine configurations. It is 
based on the generalized steady- state engine modeling codes GENENG (ref. 2) and 
GENENG II (ref. 3). These codes are based on a technique called SMOTE (refs. 4 
and 5). 



To accomplish the modeling accuracy being demonstrated by DYNGEN and other 
digital computer engine simulation codes, nonlinear steady- state and transient physical 
relationships must be included. Most of the analytical design approaches used by con- 
trol designers, however, require linear descriptions of the steady- state and transient 
characteristics of the engine. Linear approximations to nonlinear systems can be ob- 
tained at a particular operating point (a particular equilibrium condition of power setting 
and flight condition) for small excursions about that particular point. 

For a system as complex as an engine, this linear system description usually con- 
sists of a multitude of interdependent linear algebraic and differential equations that 
can be written in a compact form by using matrix notation. A widely accepted linear 
dynamic system representation (ref. 6) uses a system matrix A, a control matrix B, 
an output matrix C, and a feed-forward matrix D. To describe an engine on a linear- 
ized basis over its complete operating envelope, however, a whole family of suitably 
selected linear approximations would be required. 

This report, then, describes DYGABCD, a digital computer program that calcu- 
lates the A, B, C, and D matrices for any turbofan or turbojet engine that is capable of 
being simulated with the DYNGEN program. DYGABCD can be used (1) exactly as 
DYNGEN to generate engine steady- state and transient performance characteristics; or 
(2) to generate the linear model A, B, C, and D matrices. The method of calculation 
employed in DYGABCD to generate these matrices can easily be used in any transient 
simulation that uses a backward difference integration technique (ref. 2) . 

The report first presents (1) the theoretical or analytical bases for linear model 
approximations to nonlinear systems, (2) a definition of the compact matrix formulation, 
and (3) a derivation of the equations necessary for determining matrix element values 
from the transient simulation. Next presented is a users guide for DYGABCD, including 
complete descriptions of those subroutines that have computational techniques different 
from DYNGEN. The FORTRAN symbols used are defined in appendix A, complete 
listings are shown in appendix B, and a sample case is presented in appendix C. 

DYGABCD is written in FORTRAN IV and was used on the IBM 360/67 with the 
time- sharing system (TSS). The program should run equally well with the operating 
system (OS) on an IBM 360 or 370 series computer. 


ANALYTICAL BACKGROUND 

The simulation of a complex turbine engine process involves both linear and non- 
linear algebraic and differential equations. Multiple equations of this type can generally 
be expressed in compact vector notation as 
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X = f(x, u) 


( 1 ) 


y = g(x, U) (2) 

where x is a vector of the time- varying states of the engine, u is a vector of the sys- 
tem control inputs to the engine, and y is a vector of the engine' s outputs. The vector 
x represents the time rate of change of each of the engine' s states. The following 
table lists some typical states, inputs, and outputs for a turbine engine system: 


States 

Inputs 

Outputs 

Temperatures 

Fuel flows 

Engine airflows 

Pressures 

Nozzle area 

Thrust 

Speeds 

Bleeds 

Specific fuel consumption 



Fan surge margin 



Compressor surge margin 


Since most control design techniques require a linear description of the process to 
be controlled, a linear approximation to the nonlinear system needs to be developed. 

At a particular operating point, equations (1) and (2) can be represented by a Taylor 
series expansion about that point. If the vectors x and u are assumed to be single 
elements (i. e. , scalars), equation (1) may be written as follows: 

Xq = « 0 ) (3) 

The Taylor series expansion about the point (Xq, Uq) is 
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i = f ( x 0’ u 0> + ~ ( x " x o) + ~ ( u ~v 

8x ' u 9u u 


+ — 2 (x ~ v 2 +_ ~ (u " v 2 

3x au _ 


+ Other higher order terms (4 

If (x = Xq, u = Uq) is a steady-state operating point, the system is in equilibrium and 
hence Xq = 0. Thus, by using equations (1) and (3), equation (4) can be rewritten as 

x=— (x-x^-^ (u-u 0 ) 

ax op 9u op 

+ — (X-X 0 ) 2 +^ (U - Uq ) 2 

9x2 op au2 op 

+ Other higher order terms (5) 

where op denotes operating point. 

In a suitable neighborhood of the steady- state operating point (Xq, Uq), the higher 
order terms of equation (4) are negligible, and equation (1) can be approximated by 
using only the first partial derivative terms. By letting Ax = x - Xq, Au = u - Uq, and 
Ax = x - Xq, equation (5) becomes the linear equation 

Ax = — I Ax +— I Au (6) 


Equation (2) may be linearized in similar fashion for the output y, resulting in 


A y = ^ Ax+^ 

dx _ au 

op op 
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Definitions of A, B, C, and D Matrices 


An actual system with a multitude of states, inputs, and outputs, when linearized 
about an operating point, can be described by the following linear vector- matrix equa- 
tions: 


Ax = A Ax + B Au 

(8) 

Ay = C Ax + D Au 

0) 


where 

Ax n- dimensioned vector of state deviations 
Au c- dimensioned vector of system control input deviations 
Ay o- dimensioned vector of system output deviations 

A n- by n- dimensioned state system matrix 

B n- by c- dimensioned control input matrix 

C o- by n- dimensioned output matrix 

D o- by c- dimensioned feed-forward matrix 

n number of states 

c number of control inputs 

o number of outputs 

The system matrix A is a matrix of numbers that are the values of particular 
partial derivatives at a specific operating point. When the partial derivative notation 
of equations (6) and (7) is used, equations (10) to (13) show the elemental arrangements 
of the matrices A, B, C, and D. 
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Solutions for Full Forms of A, B, C, and D Matrices 

It is our intent to take a DYNGEN digital computer simulation with its nonlinear 
dynamic equations and to develop a method for extracting from it the elements of the A, 
B, C, and D matrices at particular engine operating points. 

Because of the backward finite- difference integration technique required by DYNGEN 
(SMOTE technique), it is necessary to calculate the inverse of the state system matrix 
A. To accomplish this, equation (8) can be rewritten as 

Ax = A" 1 Ax - A - ^B Au (14) 

To solve for A - \ all system control input deviations Au from the operating point are 
set to zero. Thus, 

Ax = A -1 Ax (15) 

Each element of A - "* - is then approximated as 



where the state derivatives are perturbed, one at a time, as described in the follow- 
ing paragraph. 

A steady- state vector of the states x is calculated. The state derivatives x at 
this steady- state point are therefore zero. The first x is set to some suitable value. 
Ax, with the rest of the x* s held to zero. A new state vector x* is calculated. The 
difference between x* and x is the vector Ax associated with this first Ax. Each of 
the other x*s is then set to some suitable value, Ax, one at a time, with all other x's 
set to zero each time. A new vector x* and a new vector Ax are calculated for each 
Ax. A matrix of these Ax column vectors is formed. Each column vector is divided 
by the Ax that produced it, thereby forming the A - * matrix referred to in equation 
(16). The A - * matrix is then inverted to obtain the A matrix. 

Solve for the control matrix B as follows: Under equilibrium conditions, x = 0, 
equation (8) becomes 


Ax = -A *B Au 


(17) 
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Each element of -A *B is then approximated as 



where the system control inputs u. are perturbed, one at a time, as described in the 
following paragraph. 

A steady- state vector of the states x is calculated. The first system control in- 
put u is changed by some suitable value Au with the remainder of the u' s held to 
their steady- state values. A new state vector x* is calculated. The difference be- 
tween x* and x is the vector Ax associated with this first Au. Each of the other 
u' s is then perturbed by some suitable Au, one at a time, with all other u' s remaining 
constant each time. A new vector x* and a new vector Ax are calculated for each 
Au. A matrix of these Ax column vectors is then formed. Each column vector is 
divided by the Au that produced it, thereby forming the -A~^B matrix approximated 
by equation (18). This matrix is then premultiplied by -A to obtain the B matrix. 

To solve for the output matrix C, substitute the equation for Ax (eq. (14)) in the 
equation for Ay (eq. (9)), yielding 

Ay = CA“ 1 Ax - CA - 1 B Au + D Au (19) 

When the system control inputs are held fixed, equation (19) becomes 


Ay = CA 1 Ax 


Each element of CA ^ is then approximated as 



( 20 ) 


( 21 ) 


where the state derivatives 

a-1 


X j 


are perturbed one at a time, as was done in obtaining 


A steady- state output vector y is calculated. The state derivatives x at this 
steady- state point are therefore zero. The first x is set to some suitable value, Ax, 
with the rest of the x 1 s held to zero. A new output vector y* is calculated. The dif- 
ference between y* and y is the vector Ay associated with this first Ax. Each of 
the other x*s is then set to some suitable value Ax, one at a time, with all other x' s 


9 


set to zero each time. A new vector y* and a new vector Ay are calculated for each 
Ax. A matrix of these Ay column vectors is then formed. Each column vector is 
divided by the Ax that produced it, thereby forming the CA - '*' matrix approximated by 
equation (21). This matrix is then postmultiplied by A to obtain the C matrix. 

Solving equation (9) for the feed- forward matrix D yields the approximation 


D « 



Au. AUj 


( 22 ) 


where the system control inputs Uj are perturbed, one at a time, as described in the 
following paragraph. 

Two steady- state vectors, x (the state vector) and y (the output vector), are cal- 
culated. The first system control input u is changed by some suitable value Au, with 
the remainder of the u' s held to their steady- state value. A new state vector x* is 
calculated. And a new output vector y* is calculated. The difference between x* and 
x is the vector Ax associated with this first Au. The difference between y* and y 
is the vector Ay associated with this first Au. Each of the other u’s is then per- 
turbed by some suitable value Au, one at a time, with all other u' s remaining constant 
each time. A new vector x* and a new vector Ax are calculated for each Au. A new 
Vector y* and a new vector Ay are also calculated for each Au. A matrix of the Ax 
column vectors is then formed, and each column vector is divided by the Au that pro- 
duced it. A matrix of the Ay column vectors is also formed, and each column vector 
is again divided by the Au that produced it. By substituting these two matrices in 
equation (22), we can solve for D. 


Solutions for Reduced Forms of A, B, C, and D Matrices 

Once the complete linear model of the dynamic system is obtained, it may be de- 
sirable, for certain reasons, to reduce the complexity of the linear description. For 
example, the eigenvalues of the full system either may be beyond the frequency range of 
interest or may have little overall effect on the system dynamic characteristics. This 
reduction can be done by several methods. 

By the method of Weinberg and Adams (ref. 7), equation (14) is rewritten in 
partitioned form as 
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( 23 ) 


AXj 

A 

A 11 

A 12 


A 11 

A 21 

Ax 2 

A 21 

A 22 

Ax 2 

A 12 

A 22 


where 

Ax^ r- dimensioned part of state deviation vector 
AXg (n-r)- dimensioned part of state deviation vector 
Au c- dimensioned system control input deviation vector 

A __ "I 

r- by r- dimensioned upper left partition of A matrix 

~ —1 

Aig r- by (n-r)-dimensioned upper right partition of A matrix 

-A „ 1 

Agi (n-r)- by r-dimensioned lower left partition of A matrix 

Ag 2 (n-r)- by (n-r)- dimensioned lower right partition of A - * matrix 

r- by c- dimensioned part of control input matrix 
Bg (n-r)- by c- dimensioned part of control input matrix 

n total number of states 

r number of states desired 

c number of control inputs 

A 

Before calculating the partitioned A matrix, permute the order of the Ax’s and the 
corresponding Ax's, so that the Ax' s to be retained are all included in Ax^. Those 
remaining make up the elements of AXg. The elements of AXg are assumed to be 
negligible in determining the system transient response. Hence, setting AXg = 0 in 
equation (23) yields 

Ax^ = A i;l Ax.^ - ^A^B-j^ + A 12 B 2 ^ Au (24) 

Solving for Ax 1 gives 

Ax^ = ^11^ ^ x i + ^Ti^ ^ A 11®1 + A 12®2^ Au 


or 


AXj = Ajj Ax^ + Bj^ Au 


(26) 


11 



where 



( 27 ) 


and 


B R “ ( A ll^ 1 ( A 11 B 1 + A 12 B 2^ (28 ) 

Note that it is necessary to compute only the upper left quadrant of the A 1 matrix 
(the r-by-r A.^) and then to invert it to obtain A R . The quantity A 11 B 1 + A 12 B 2 
consists of the first r rows of the A -1 B matrix from equation (18). Thus, only the 
first r rows of -A -1 B need to be calculated. These rows are then premultiplied by -A R 
to obtain b r- 

In solving for a reduced C matrix and the D matrix used with the reduced A, B, and 
C matrices, there is no simple discarding of rows and columns. Starting with equa- 
tion (23), if Ax 2 is zero, then 


AXg - A 21 A^ - ^A 2lBl + A 22 B 2 ^Au 


(29) 


Substituting equations (25) and (27) into equation (29) yields 




Ax 2 - A 21 A R Ax 1 + ( A 21 A R A 12 “ A 22J B 2 Au 


2 )= 


(30) 


The partitioned form of equation (9) is 


Ay = 



Ax, 

+ D Au 

Ax 2 


(31) 


where 

Ay o- dimensioned output deviation vector 
Ax 1 r- dimensioned part of state deviation vector 
Ax, (n-r)- dimensioned part of state deviation vector 
Au c- dimensioned system control input deviation vector 
C 1 o- by r- dimensioned part of output matrix 
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o- by (n-r)- dimensioned part of output matrix 
o- by c- dimensioned feed- forward matrix 


D 


Equation (31) yields 


Ay = C 1 Ax^ + C 2 AXg + D Au 


( 32 ) 


Using equation (30) to eliminate Ax 2 gives 


Ay = C 1 Ax x + C 2 A 21 A r Ax ± + CJ A 21 A R A 12 - A 22 


h + C 2^ 


:) b 2 + D 


Au (33) 


or 


Ay = C R Ax^ + D r Au 


(34) 


where 


C R “ C 1 + C 2 A 21 A R 


(35) 


and 


D R " C 2 


A 21 A R A 12 A 22 


i) B 2 + D 


(36) 


USERS GUIDE 


Changes to DYNGEN 

The IBM 360/67 computer with TSS was chosen because of the storage size of the 
DY GABCD program. Certain changes have been made in the conversion of DYNGEN to 
DYGABCD for accuracy and speed of calculation. All real variables are now double 
precision. Each convergence loop now uses a convergence criterion of TOLALL 
multiplied by some constant, where TOLALL is input in the namelist data as before. 
Although the number of passes through some loops has been increased, the relationships 
among the loops have been kept constant, so that the accuracy of the convergence criteria 
can be increased. All BLOCK DATA subroutines are combined into one subroutine with 
the named common COMMON/COMDAT/COMD(5423). All program variables are com- 
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bined into one named common COMMON/COMALL/COM(1062). Within each subroutine, 
only those variables actually referenced are equivalenced to either COMD and/or COM, 
with one exception. In the main routine DYGABCD, each variable referenced anywhere 
in the program is equivalenced, so that all may be seen at a glance. 

The DYGABCD program provides a maximum of 23 possible derivative variables 
for use in calculating the A and C matrices. The specific number of possible variables 
for any particular engine depends on the configuration of that engine. In calculating the 
B matrix, only two control variables are used. More parameters could be chosen. In 
calculating the C matrix, any variables calculated in the program, including the states 
and/or inputs, may be used. Variables that are both states and outputs are used in cal- 
culating the D matrix. 

Minor changes have been made in the main routine DYGABCD and the subroutines 
ENGBAL and PUTIN (underlined in the listings) to accommodate the addition of the A, 

B, C, and D matrix calculations. An addition has been made to function DERIV to allow 
either the original calculations of DYNGEN or the calculations necessary for the A 
and/or C matrices to be performed. Since DISTRB was already a user- written subroutin 
in DYNGEN, the bulk of the A, B, C, and D matrix calculations are done in it. 


Method 

DYGABCD may be run exactly as DYNGEN if DYNGEN data are used. It may also 
be used to generate the A, B, C, and D matrices when it is used with a different set of 
data and a new subroutine DISTRB that is modified by the user. To use the A, B, C, 
and D matrix capability, the following tasks must be performed: 

(1) A steady- state point is run and the resulting main fuel flow noted. This is the 
steady- state point about which the small perturbations (generating A, B, C, and D) will 
be made. When the A, B, C, and D matrices are generated, they will define a linear 
model that is applicable in the region of this steady- state point. 

(2) A new run is made with the addition of one data card that includes the following 
parameters: MODE=2, WFB=(the steady- state value noted previously in task 1), 
ITRAN=1, and IAMTRX=1. 

IAMTRX is a new variable that is input as 1 if the A, B, C, and D matrices are to 
be calculated. The default value is 0, which is the value when DYGABCD is used as 
DYNGEN. If IAMTRX is 1, the program runs a "pseudo- transient” to calculate the A 
and C matrices, a set of steady- state points to calculate the B matrix, and a set of 
steady- state points plus the C matrix to calculate the D matrix. 

The term "pseudo- transient" is used to describe the following procedure: since 
ITRAN = 1 on the data card in task 2, the program runs in the transient mode. How- 
ever, during every time step, when the time index, NSTEP, is increased by 1 in sub- 
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routine ENGINE, it is promptly decreased by 1 back to 0 by the next statement, if 
IAMTRX is 1. This "fool the program" pseudo- transient is necessary to calculate the 
A and C matrices in subroutine DISTIIB. Just before calculating the B and D matrices, 
which depend on a set of steady- state points, DISTRB sets ITRAN to 0. 


Changes to Subroutine DISTRB 

DATA statements and program statements in subroutine DISTRB control the cal- 
culations of the A, B, C, and D matrices. DYGABCD provides a maximum of 23 pos- 
sible time- varying state variables. These variables and their original order are as 
follows: 


List number 

Variable name 

1 

XNHP 

2 

XNIP 

3 

XNLP 

4 

P22 

5 

U22 

6 

P21 

7 

U21 

8 

P3 

9 

U3 

10 

P4 

11 

U4 

12 

P50 

13 

U50 

14 

P5 

15 

U5 

16 

P55 

17 

U55 

18 

P7 

19 

U7 

20 

P24 

21 

U24 

22 

P37 

23 

U37 


The DATA statements and program statements include parameters that describe the 
particular case the user wishes to run. 
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INV total number of states possible for particular engine being modeled, less 

than or equal to 23 

INVRED total number of states actually used in model (full or reduced), less than or 
equal to INV 


IVARB 

INB 

BPER 


INC 

NUCOM 


order in which states are to be done (If this is a reduced model, the states 
to be included are listed before those not included. ) 

number of system control inputs desired, less than or equal to 5 

percent (BPER=. 02 means 2 percent) (The steady- state value of each input 
will be multiplied by this percent to form the Au of each input in order to 
calculate the B and D matrices. ) 

number of outputs desired, less than or equal to 50 

list of equivalenced "COM" numbers of outputs desired (All of the equiva- 
lences are in the main routine DYGABCD. ) 


PVRDOT vector of percents (PVRDOT=. 02 means 2 percent) in list number order 
(The steady- state value of each state will be multiplied by the percent 
associated with that state to form the Ax for that particular state in order 
to calculate the A and C matrices. ) 


There is one other necessary parameter that is set by a program statement - 
ICHOIC. If ICHOIC is 0, subroutine DISTRB calculates the A and C matrices by using 
the percentages of the states as set by the initial conditions of the PVRDOT 1 s. If 
ICHOIC is set to 1, the percentages will be calculated and reset by the program to form 
an A~^ matrix with no zero columns or rows. A run with ICHOIC set to 1 should al- 
ways be made first to find values for the PVRDOT' s that do not result in an A - 1 matrix 
containing any zero columns or rows. Obviously, an A”* matrix that has zero columns 
or rows cannot be inverted. 

Subroutine DISTRB is programmed to use inputs WFB (main fuel flow) and A8 
(nozzle area). However, more and/or other inputs could be used. The number of inputs 
is limited to 5, but that limit could be changed by the user. 

A line-by-line study of subroutine DISTRB should be made before attempting to 
make any runs other than the sample case. Subroutine DISTRB includes many comment 
cards that can be helpful. The listing starts on page 98. 


Changes to Function DERIV 

Function DERIV has been changed so that, if IAMTRX=1, a different set of state- 
ments is used. These statements set all derivatives to zero except for the particular 
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state being used. The derivative of that state is set to its steady- state value multi- 
plied by the PVRDOT of that state. If LAMTRX=0, function DERIV behaves in the same 
manner as it did in DYNGEN. 


Changes to Subroutine PUTIN 

Subroutine PUTIN has been changed so that it will accept one more variable in the 
namelist DATAIN. This variable is IAMTRX, which is defaulted to zero if DYGABCD 
is to be used as DYNGEN and is set to 1 if DYGABCD is to be used to generate the A, 
B, C, and D matrices. 


Changes to Subroutine ENGBAL 

Two changes have been made to subroutine ENGBAL. One change resets the time 
index if IAMTRX=1. This has been explained in the section Method. The other change 
causes subroutines DISTRB and COINLT to be called during the steady-state calcula- 
tions for the B and D matrices if IAMTRX=1. If IAMTRX=0, subroutine ENGBAL be- 
haves in the same manner as it did in DYN GEN. 


Changes to Main Routine DYGABCD 

The routine DYGABCD sets the default value of IAMTRX to zero and initializes the 
parameter IDOT to zero. IDOT is used internally in subroutine DISTRB to keep a 
record on the states being used to generate the A and C matrices and later to keep a 
record on the inputs used in the calculations for the B and D matrices. 


SAMPLE CASE 

The sample case is a two- spool, two- stream engine simulation that has a maximum 
of 16 states. The system control inputs used were WFB (main fuel flow) and A8 (nozzle 
area). The outputs specified were SFC (specific fuel consumption), FG (gross thrust), 
and FN (net thrust) . 

A steady- state point was run and the main fuel flow was noted to be 2. 75 lbm/sec. 
The data card for the A, B, C, and D matrix calculations was inserted. In subroutine 
DISTRB, the following parameters were set in DATA statements: the number of states 
possible for this engine (16), in ENV; the number of states for a reduced model (9), 
in INVRED; the order of states, in IVARB; the number of system control inputs (2), in 


17 


INB; the percent delta of the inputs for the calculation of the B and D matrices (0. 01), 
in BPER; the number of outputs (3), in INC; and the list of the equivalenoed "COM” 
numbers of the outputs, in NUCOM. Subroutine statements were as follows: ICHOIC 
was set to 1 so that subroutine DISTRB would calculate the PVRDOT 1 s. These PVRDOT 1 s 
were all initialized to 0. 02. The A, B, C, and D matrices generated were used to form 
a linear model. 

Two transient runs were made using DYGABCD as DYNGEN. The first run had a 
3-percent step change in main fuel flow, and the other had a 3-percent step change in 
nozzle area. The results from these two full- state, nonlinear transients were the time 
histories of the states, inputs, and outputs. These nonlinear results (squares on the 
graphs) were then used as the standard against which the results from the various runs 
using the linear model (circles on the graphs) were plotted. 

Since one of the state eigenvalues was extremely large, 15th order (instead of 16th) 
was the largest order linear model that could be used to generate time responses. A 
run was made using the 15th- order (full) linear model with a 3- percent step change in 
main fuel flow. Another run was made using a second- order (reduced) linear model 
with the same step change. These two runs were then repeated with a 3-percent step 
change in nozzle area. 

The responses of the states and outputs from these four linear cases are compared 
with the responses from the nonlinear cases in figures 1 to 19. The results of the full- 
order linear runs and the nonlinear runs for the two step inputs are shown in the upper 
quadrants of each figure. The agreement is very good. The reduced (low order) linear 
runs and the nonlinear runs for the two step inputs are shown in the lower quadrants of 
each figure. Here, there is disagreement, especially in the first 0. 1 second of the 
transient, because those parameters that cause the high-frequency dynamics are miss- 
ing. 

The FORTRAN symbols used are defined in appendix A. The program is listed in 
appendix B. Sample case input data and output are listed in appendix C. 


CONCLUSIONS 

DYGABCD is a computer program that produces the A, B, C, and D matrices from 
a nonlinear, generalized, transient engine simulation. These matrices -are used to 
generate a linear model. The results from the nonlinear simulations and the full- order 
linear simulations show good agreement. This method also permits reduced- order 
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models to be formed that produce varying degrees of agreement. The method of cal- 
culating these matrices could be applied to many other dynamic engine simulations. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, April 21, 1978, 

505-05. 
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APPENDIX A 


FORTRAN SYMBOLS 

An asterisk denotes that the variable can be input. 

A24 cross-sectional area at station 24, m 2 (ft 2 ) 

A25 cross-sectional area at station 25, m 2 (ft 2 ) 

* A28 area of fan duct nozzle throat, station 28, 

m 2 (ft 2 ) 

A28SAV saved area of fan duct nozzle throat, 

station 28, at design conditions, m 2 (ft 2 ) 

A29 cross-sectional area at station 29, m 2 (ft 2 ) 

A29SAV saved cross-sectional area at station 29 at 
design conditions, m 2 (ft 2 ) 

* A38 area of wing duct nozzle throat, station 38, 

m 2 (ft 2 ) 

A39 cross-sectional area at station 39, m 2 (ft 2 ) 

A55 cross-sectional area at station 55, m 2 (ft 2 ) 

* A6 cross-sectional area of afterburner entrance, 

station 6, calculated from AM6, m 2 (ft 2 ) 

A7 cross-sectional area at station 7, m 2 (ft 2 ) 

* A3 area of main nozzle throat, station 8, (can be 

changed at off-design) , m 2 (ft 2 ) 

A8SAV saved area of main nozzle throat, station 8, at 
design conditions, m 2 (ft 2 ) 

A9 cross-sectional area at station 9, m 2 (ft 2 ) 

A9SAV saved cross-sectional area at station 9 at 
design conditions, m 2 (ft 2 ) 

* AFTFAN (logical) control for an aft-fan engine 

* ALTP altitude of aircraft, m (ft) 
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* AM 

* A M2 3 

A M2 5 
AM28 
AM29 
AM38 
AM39 

* AM55 

* AM6 

AM6DSV 

AM7 

A M8 

AM9 

BLC 

BLDU 

BLF 

BLHP 

BLI 

BLIP 

B LLP 


Mach number of aircraft 

Input: design Mach number of ductburner 

entrance, station 23 
Output: Mach number at station 23 

Mach number at station 25 

Mach number at station 28 

Mach number at station 29 

Mach number at station 38 

Mach number at station 39 

Input: design Mach number at low-pressure- 

turbine exit, station 55 
Output: Mach number at station 55 

Input: design Mach number at afterburner 

entrance, station 6 
Output: Mach number at station 6 

saved Mach number at afterburner entrance at 
design conditions, station 6 

Mach number at station 7 

Mach number at station 8 

Mach number at station 9 

bleed flow out of compressor, kg/sec (lbm/sec) 

bleed flow into fan duct, kg/sec (lbm/sec) 

bleed flow out of fan (dumped overboard), kg/sec 
(1 bm/s ec) 

bleed flow into high- pressure turbine, kg/sec 
(lbm/sec) 

airflow into third stream, kg/sec (lbm/sec) 

bleed flow into intermedia te- pressure turbine, 
kg/sec (lbm/sec) 

bleed flow into low-pressure turbine, kg/sec 
(lbm/sec) 
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BLOB 

BP3INT 

BYPASS 

CNC 

CNF 

CNHP 

CNHPCF 

* CNHPDS 
CNI 
CNIP 

CNIPCF 

* CNIPDS 

CNLF 

CNLPCF 

* CNLPDS 
CS 

* CVDNOZ 

* CVL'WNG 

* CVMNOZ 

* DELFG 

* DELFN 


bleed flow lost overboard (customer bleed) , 
kg/sec (lbm/sec) 

ratio of airflow into wing duct to airflow into 
core 

ratio of airflow into fan duct to airflow into 
intermediate compressor 

corrected shaft speed of core compressor 

corrected shaft speed of fan compressor 

corrected shaft speed of high-pressure turbine 

correction factor of high-pressure-turbine 
corrected speed 

design corrected speed of high-pressure turbine 

corrected shaft speed of intermediate compressor 

corrected shaft speed of intermedia te- pressure 
turbine 

correction factor of intermediate-pressure- 
turbine corrected speed 

design corrected speed of intermediate- pressure 
turbine 

corrected shaft speed of low-pressure turbine 

correction factor of low-pressure turbine 
corrected speed 

design corrected speed of low-pressure turbine 
ambient speed of sound, m/sec (ft/sec) 
velocity coefficient of duct nozzle thrust 
velocity coefficient of wing nozzle thrust 
velocity coefficient of core nozzle thrust 
gross-thrust delta degradation multiplier 
net-thrust delta degradation multiplier 
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* DELSFC 

* DELT1 

DHHPCF 

DHIPCF 

DHLPCF 

DHTC 

DHTCHP 

DHTCIP 

DHTCLP 

DHTF 

DHTI 

* DPAFDS 
DPAFT 

* DPCODS 
DPeoa 
DPDUC 

* DPDDDS 

* DPWGDS 
DPWING 

* DT 

* DTPRNT 


spec! fic- f uel-consum ption delta degradation 
multiplier 

correction to standard-day temperature, K (°F) 


A enthalpy correction factor of 
high-pressure turbine 

A enthalpy correction factor of 
intermediate-pressure turbine 

A enthalpy correction factor of 
low-pressure turbine 

work done by high-pressure turbine, J/kg 
(Btu/lbat) 


enthalpy change of high-pressure turbine, 
temperature corrected, J/kg-K (Btu/lbm- 0 ?) 

enthalpy change of intermediate- pressure turbine, 
temperature corrected, J/kg-K (Bt u/lbra-°P) 

enthalpy change of low-pressure turbine, 
temperature corrected, J/kg-K (Btu/lbm-°R) 

work done by low-pressure turbine, J/kg (Btu/lbm) 

work done by intermediate-pressure turbine, J/kg 
(Btu/lbm) 


design pressure drop (AP/P) of afterburner 
pressure drop (AP/P) of afterburner 
design pressure drop (AP/P) of combustor 
pressure drop (Ap/P) of combustor 
pressure drop (AP/P) of fan duct 
design pressure drop (AP/P) of fan duct 
design pressure drop (AP/P) of wing duct 
pressure drop (AP/P) of wing duct 
solution time step for transient, sec 
time step for output listings, sec 
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DUMD 1 ( 15) dumm y variables 


* DUMSPL 
ERRER 

* ETA A 

* ETAADS 
ETA AS V 

ETAB 

ETABCF 

* ETABDS 
ETAC 
ETACCF 

* ETACDS 

* ETAD 
ETAF 
ETAFCF 

* ETAFDS 
ETAI 
ETAICF 

* ETA IDS 

* ETAR 

ETATHP 

ETATIP 

ETATLP 


(logical) control for spool that does not change 
temperature or pressure of air 

(logical) test of exceeding ITFfS 

efficiency of afterburner 

design efficiency of afterburner 

saved efficiency of afterburner at design 
conditions 

efficiency of combustor 

correction factor of combustor efficiency 

design efficiency of combustor 

adiabatic efficiency of core compressor 

correction factor of core- com pressor efficiency 

design adiabatic efficiency of core compressor 

efficiency of ductburner 

adiabatic efficiency of fan compressor 

correction factor of fan- compressor efficiency 

design adiabatic efficiency of fan compressor 

adiabatic efficiency of intermediate compressor 

correction factor of intermedia te- compressor 
efficiency 

design adiabatic efficiency of intermediate 
compressor 

pressure recovery of inlet (ram recovery), 

P2/P1 

adiabatic efficiency of high-pressure turbine 

adiabatic efficiency of intermediate-pressure 
turbine 

adiabatic efficiency of low-pressure turbine 
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ETHPCF 

* ETHPDS 
ETIPCF 

* ETIPDS 
ETLPCF 

* ETLPDS 

* FAN 
FAR24 
FAR4 
FAR 5 
FAR50 
FAR55 
F AR7 
FAR7SV 

FCOVFN 

FFOVFN 

FG 

FGM 

FGMD 

FGMM 

F GM W N G 


correction factor of high-pressure- turbine 
efficiency 

design adiabatic efficiency of high-pressure 
turbine 

correction factor of intermediate- pressure- 
turbine efficiency 

design adiabatic efficiency of 
intermediate-pressure turbine 

correction factor of low-pressure- turbine 
efficiency 

design adiabatic efficiency of low-pressure 
turbine 

(logical) control that indicates fan or turbojet 


f uel-to-air 

ratio 

at 

station 

24 

fuel-to-air 

ratio 

at 

station 

4 

fuel-to-air 

ratio 

at 

station 

5 

f uel-to- air 

ratio 

at 

station 

50 

fuel-to-air 

ratio 

at 

station 

55 

fuel-to-air 

ratio 

at 

station 

7 


saved fuel-to-air ratio at station 7 at design 
conditions 

ratio of core thrust to net thrust 
ratio of fan thrust to net thrust 
gross thrust, N (lbf) 

momentum thrust of all but wing, N (lbf) 

fan duct momentum thrust of all but wing, N (lbf) 

core nozzle momentum thrust of all but wing, 

N (lbf) 

momentum thrust of wing, N (lbf) 


FGP 


i ii ii mu 

pressure thrust of all but wing, N (lbf) 

FGPD fan duct pressure thrust of all but wing, N (lbf) 

FGPM core nozzle pressure thrust of all but wing, 

N (lbf) 

FGPWNG pressure thrust of wing, N (lbf) 

FMNOFN ratio of fan plus core thrust to net thrust 
FN net thrust, N (lbf) 

FNHAIN net thrust of all but wing, N (lbf) 

FNOVFD ratio of net thrust to design-point net thrust 
FNHING net thrust of wing, N (lbf) 

FED ram drag, N (lbf) 

FWOVFN ratio of net wing thrust to net thrust 

* FXFN2M (logical) control for boosted fan 

* FXM2CP (logical) control for supercharged compressor 

Hi enthalpy at station 1, J/kg (Btu/lbm) 

H2 enthalpy at station 2, J/kg (Btu/lbm) 

H21 enthalpy at station 21, J/kg (Btu/lbm) 

H22 enthalpy at station 22, J/kg (Btu/Lbm) 

H23 enthalpy at station 23, J/kg (Btu/lbm) 

H24 enthalpy at station 24, J/kg (Btu/lbm) 

H25 enthalpy at station 25, J/kg (Btu/lbm) 

H28 enthalpy at station 28, J/kg (Btu/lbm) 

H29 enthalpy at station 29, J/kg (Btu/lbm) 

H3 enthalpy at station 3, J/kg (Btu/lbm) 

H38 enthalpy at station 38, J/kg (Btu/lbm) 

H39 enthalpy at station 39, J/kg (Btu/lbm) 
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H4 

H5 

H50 

H55 

H6 

H7 

H8 

H9 

* HPEXT 

* IAFTBN 

* IAMTP 

* IAMTRX 

ICOAFB 

ICODUC 

ICOMIX 

* IDBUBN 

* I DC D 

* IDES 

* IDUMP 

* IGASMX 

* IMCD 


enthalpy 

at 

station 

4, 

J/kg 

(Btu/lbm) 

enthalpy 

at 

station 

5, 

J/kg 

(Btu/lbm) 

enthalpy 

at 

station 

50 

, J/kg 

(Btu/lbm) 

enthalpy 

at 

station 

55 

, J/kg 

(Btu/Lba) 

enthalpy 

at 

station 

6, 

J/kg 

(Btu/lbm) 

enthalpy 

at 

station 

7, 

J/kg 

(Btu/lbm) 

enthalpy 

at 

station 

8, 

J/kg 

(Btu/lbm) 

enthalpy 

at 

station 

9, 

J/kg 

(Btu/lbm) 


power extracted, H (hp) 

index for afterburning desired; zeroes 
automatically; values of 0, 1, or 2 

index for ram or inlet operation desired; values 
of 0 to 5 

index that indicates if A,B,C, and D matrices 
are to be calculated 

index of error in subroutine COAFBS 

index of error in subroutine CODUCT 

index of error in subroutine COMIX 

index for duct burning desired; zeroes 
automatically; values of 0, 1, or 2 

duct nozzle convergent-divergent when value=1; 
convergent when value=0 

index for design point; zeroes automatically; 
must be set to 1 to design engine 

index for dumping of error matrix; values of 0, 

1 , or 2 

index for mixed or no-mixed flow turbofans; 
values of -1, 0, 1, or 2 

main nozzle convergent-divergent when value=1; 
convergent when value=0 
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* INIT 


index for initializing guesses; zeroes 

automatically; 0 calls GUESS, 1 does not 

* ISPOOL number of engine rotors 

* ITRAN index for initiating transient 

* ITRYS maximum number of iterations allowed through 

engine counter 

JTRAN index that indicates a transient is in progress 
LOOPER number of loops through engine counter 

* MODE independent variable designator for engine 

operation 

* NOZFLT index for floating main or duct nozzle; zeroes 

automatically; values of 0 to 3 


Pi standard pressure, N/m 2 (atm) 


P2 

total 

pressure 

at 

station 

2, 

N/m 2 

(atm) 

P21 

total 

pressure 

at 

station 

21, 

N/m 2 

(atm) 

P22 

total 

pressure 

at 

station 

22, 

N/m 2 

(atm) 

P23 

total 

pressure 

at 

station 

23, 

N/m 2 

(atm) 

P 24 

total 

pressure 

at 

station 

24, 

N/m 2 

(atm) 

P25 

total 

pressure 

at 

station 

25, 

N/m 2 

(atm ) 

P28 

tota 1 

pressure 

at 

station 

28, 

N/m 2 

(atm) 

P29 

total 

pressure 

a t 

station 

29, 

N/m 2 

(atm) 

P3 

total 

pressure 

at 

station 

3, 

N/m 2 

( atm) 

P37 

total 

pressure 

at 

station 

37, 

N/m 2 

(atm) 

P33 

total 

pressure 

at 

station 

38, 

N/m 2 

(atm) 

P39 

total 

pressure 

at 

station 

39, 

N/m 2 

(atm ) 

P4 

total 

pressure 

at 

station 

4, 

N/m 2 

( atm) 

P5 

total 

pressure 

at 

station 

5, 

N/m 2 

(atm) 
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P50 

P55 

P6 

P6DSAV 

P7 

P8 

P9 

* PCBLC 

* PCBLDU 

* PCBLF 

* 'PCBLHP 

* PCBLI 

* PCBLID 

* PCBLI P 

* PCBLLP 

* PCBLOB 

* PCNC 

* PCNCDS 
PCNCGU 


total pressure at station 50, N/m 2 (atm) 

total pressure at station 55, N/m 2 (atm) 

total pressure at station 6, N/m 2 (atm) 

saved total pressure at station 6 at design 
conditions, N/m 2 (atm) 

total pressure at station 7, N/m 2 (atm) 

total pressure at station 8, N/m 2 (atm) 

total pressure at station 9, N/m 2 (atm) 

ratio of compressor bleed to cool turbines to 
total compressor airflow 

ratio of compressor bleed leaked into fan duct to 
total compressor bleed flow 


ratio of bleed from fan compressor to fan airflow 
dumped overboard (i.e., leakage) 

fraction of PCBLC used in high-pressure turbine 
for cooling 

fraction of intermediate- compressor air that 
goes into third stream 

ratio of design value of air into wing to air 
into core; zero for two-stream engine 

fraction of PCBLC used in inter mediate- pressure 
turbine for cooling 

fraction of PCBLC used in low-pressure turbine 
for cooling 

fraction of bleed air out of compressor lost 
overboard (for customer use) 

shaft speed of core compressor as a percent of 
design 

design corrected speed of core compressor as a 
percent of design 

guessed shaft speed of core compressor as a 
percent of design 
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Ill 


* -PCNF 

* PCNFDS 
PCNFGU 

* PC N I 

* PC N ID S 
PCMIGU 

* PM I HP 

* PMIIP 

* PMILP 

PRC 

PRCCF 

* PRC DS 
PBF 
PEFCF 

* PSFDS 
PSI 
PRICF 

* PBIDS 
PS28 
PS29 


shatt speed of fan compressor as a percent of 
design 

design corrected speed of fan compressor as a 
percent of design 

guessed shaft speed of fan compressor as a 
percent of design 

shaft speed of intermediate compressor as a 
percent of design 

design corracted speed of intermediate compressor 
as a percent of design 

guessed shaft speed of intermediate compressor 
as a percent of design 

polar moment of inertia of high-prassure rotor, 
kg-m 2 (slug-ft 2 ) 

polar moment of inertia of inter mediate- pressure 
rotor , kg-m 2 (slug-ft 2 ) 

polar moment of inertia of low-pressure rotor, 
kg-m 2 (slug-ft 2 ) 

pressure ratio of core compressor 

correction factor of core - compressor 
pressure ratio 

design pressure ratio of core compressor 

pressure ratio of fan compressor 

correction factor of fan -compressor 
pressure ratio 

design pressure ratio of fan compressor 

pressure ratio of intermediate compressor 

correction factor of intermediate-compressor 
pressure ratio 

design pressure ratio of intermediate compressor 
static pressure at station 28, M/m 2 (atm) 
static pressure at station 29, M/m 2 (atm) 
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PS38 

static pressure at 

station 38, 

, N/m 2 (atm) 

PS39 

static pressure at 

station 39, 

, N/m 2 (atm) 

PS55 

Input : 
Outp ut: 

static pressure at low-pressure-turbine 

exit, station 55, N/m 2 (at m) 

static pressure at station 55, N/m 2 (at 

PS6 

static pressure at 

station 6, 

N/m 2 (atm) 

PS7 

static pressure at 

station 7, 

N/m 2 (atm) 

PS8 

static pressure at 

station 8, 

N/m 2 (atm) 

PS9 

static pressure at 

station 9, 

N/m 2 (atm) 

SI 

entropy 

at 

station 

1, J/kg-K 

(3tu/L bm- °R) 

S2 

en tropy 

at 

station 

2, J/kg-K 

(Btu/1 bm-°R) 

S21 

entropy 

at 

station 

21, J/kg-K 

(Btu/lbm- °R ) 

S22 

entropy 

at 

station 

22, J/kg-K 

(Btu/lbm- °R) 

S 23 

entropy 

at 

station 

23, J/kg-K 

(Btu/lbm-OR) 

S 24 

entropy 

at 

station 

24, J/kg-K 

(Btu/lbm-°R) 

S 25 

en tropy 

at 

station 

25, J/kg-K 

(Btu/lbm- OR) 

S28 

entropy 

at 

station 

28, J/kg-K 

(Btu/lbm- °R) 

S29 

entropy 

at 

station 

29, J/kg-K 

(Btu/lbm- OR) 

S3 

entropy 

at 

station 

3, J/kg-K 

(Btu/lbm-OR) 

S 4 

entropy 

at 

station 

4, J/kg-K 

(Btu/lbm-OR) 

S5 

entropy 

at 

station 

5, J/kg-K 

(Btu/Lbm-OR) 

S50 

entropy 

at 

station 

50, J/kg-K 

(Btu/lbm-OR) 

S55 

en tropy 

at 

station 

55, J/kg-K 

(Btu/lbm- or) 

S6 

entropy 

at 

station 

6, J/kg-K 

(Btu/lbm-OR) 

S7 

entropy 

at 

station 

7, J/kg-K 

(Btu/lbm-OR) 

S 8 

entropy 

at 

station 

8, J/kg-K 

(Btu/Lbm-OR) 

S9 

entropy 

at 

station 

9, J/kg-K 

(Btu/1 bm -o R) 



SFC 

* SI 

T 1 

* T 2 

T21 

T21DS 

T22 

T22DS 

T 23 

* T24 

T 25 
T 28 
T29 
T2DS 

T3 

T38 

T39 

* T4 

* T4DS 
T4GU 


specific fuel consumption, kg/N-hr (lbtn/lbf-hr) 

(logical) control for SI or U.S. customary 
(English) units 

standard temperature, station 1, K (°R) 

Input: total temperature at fan inlet, 

station 2, K (°R) 

Output: total temperature at station 2, K (°E) 

total temperature at station 21, K (°F) 

total temperature at intermediate- compressor 
exit at design conditions, station 21, K (OR) 

total temperature at station 22, K (°R) 

design total temperature at fan exit, station 22, 
K (OR) 

total temperature at station 23, K (°R) 

Input: total temperature at ductburner exit, 

station 24, K (°F) 

Output: total temperature at station 24, K (°R) 

total temperature at station 25, K (°P) 

total temperature at station 28, K (°P) 

total temperature at station 29, K (°R) 

design total temperature at far. inlet, station 2, 
K (OR) 

total temperature at station 3, K (°P) 

total temperature at station 38, K (°P) 

total temperature at station 39, K (OR) 

Input: total temperature at combustor exit, 

station 4, K (op) 

Output: total temperature at station 4, K (°P) 

design total temperature at combustor exit, 
station 4, k (°R) 

guessed total temperature at station 4, K (°R) 





T5 

T50 

T55 

T6 

* T7 

* T7DS 

T8 

T9 

* TF 
TFAR 
TFFHP 

TFFIP 

TFFLP 

TFHPCF 

* TFHPDS 
TF I PC F 

* TFIPDS 
TFLPCF 


total temperature at station 5, K (°R) 

total temperature at station 50, K (°P| 

total temperature at station 55, K (°F) 

total temperature at station 6, K (°F) 

Input: total temperature at afterburner exit, 

station 7, K (°R) 

Output: total temperature at station 7, K (°R) 

design total temperature at afterburner exit, 
station 7, K (°P) 

total temperature at station 8, K (°R) 
total temperature at station 9, K ( 0 R) 
final time for transient, sec 
total fuel-to-air ratio 

flow function of high-pressure turbine, 
kq-^/K- m 2 /N- sec (lbm-V^F-in 2 /lbf-sec) 

flow function of intermediate- pressure turbine, 
kg- > yR-m 2 /N-sec (Ibm - > y°~R-in 2 /lbf - sec) 


flow function of low-pressure turbine, 
kq-^JK- m 2 /N- sec ( 1 bm-^/ 0 R-in 2 /lbf - s ac) 

correction factor of high-pressure turbine flow 
function 

design flow function of high-pressure turbine, 
kg-VK- m 2 /S’ -sec ( lbrn-^/OR - - in 2 /lbf-sec) 

correction factor of intermediate-pressure 
turbine flow function 

design flow function of intermediate- pressure 
turbine, kg-^/K-m 2 /N-sec (lbm-. v /OR- in 2 /lbf-sec) 

correction factor of low-pressure turbine flow 
function 

design flow function of low-pressure turbine, 
kg-^/K-m 2 /N-sec (lbm-. v /°"R-ir 2 /lbf-s ec) 


* TFLPDS 



TIMS 

time, sec 




* TOLALL 

tolerance on convergence 



TS28 

static temperature 

at station 

28, K 

(°R) 

TS29 

static temperature 

at station 

29 , K 

(°R) 

TS38 

static temperature 

at station 

38, K 

(°R) 

TS39 

static temperature 

at station 

39, K 

(°a) 

TS7 

static temperature 

at station 

1 , K 

(°R> 

TS8 

static temperature 

at station 

00 

* 

<°R) 

TS9 

static temperature 

at station 

9, K 

(OH) 

U21 

internal energy at 

station 2 1 , 

, J/kg 

(Btu/lbm) 

U22 

internal energy at 

station 22, 

J/kg 

(Bt u/lbm) 

U24 

internal energy at 

station 24, 

J/kg 

(Btu/lbm) 

03 

internal energy at 

station 3, 

J/kg 

(Btu/lbm) 

U 37 

internal energy at 

station 37, 

J/kg 

(Btu/lbm) 

04 

internal energy at 

station 4 , 

J/kg 

(Btu/lbm) 

05 

internal energy at 

station 5, 

J/kg 

(Btu/lbm) 

050 

internal energy at 

station 5°, 

J/kg 

(Btu/lbm ) 

055 

internal energy at 

station 55, 

J/kg 

(Btu/lbm) 

07 

internal energy at 

station 7, 

J/kg 

(Btu/lbm) 

V25 

velocity at station 

25, m/sec 

(ft/sec) 

V 28 

velocity at station 

28, m/sec 

(ft/sec) 

V 29 

velocity at station 

29, m/sec 

(ft/sec) 

V 38 

velocity at station 

38, m/sec 

(ft/sec) 

V39 

velocity at station 

39, m/sec 

(ft/s ec) 

V55 

velocity at station 

55, m/sec 

(ft/sec) 

V6 

velocity at station 

6, m/sec ( 

ft/sec) 
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V7 

78 

V9 

VA 

* VAFTBN 

* V COMB 

* VCOMP 

* VF AN 

* VFDOCT 

* VHPTRB 

* VINTC 

* VIPTRB 

VJD 

VJM 

VJH 

* 7LPTRB 

* VMDDCT 

HA21 

HA22 

WA23DS 

UA3 


velocity at station 7, m/sec (ft/sac) 

velocity at station 8, m/sec (ft/sec) 

velocity at station 9, m/sec (ft/sac) 

velocity of aircraft, ra /sec (ft/sec) 

control volume associated with afterburner, 
m 3 (ft 3 ) 

control volume associated with combustor, 
m 3 (ft 3 ) 

control volume associated with core compressor, 
m 3 (ft 3 ) 


control volume associated with fan compressor, 
m 3 (ft 3 ) 


control volume associated with fan duct, m 3 (ft 3 ) 


control volume associated with high-pressure 
turbine, m 3 (ft 3 ) 

control volume associated with inta rmediate 
compressor, m 3 (ft 3 ) 

control volume associated with 

intermediate- pressure turbine, m 3 (ft 3 ) 


velocity of fan duct exhaust, m/sec (ft/sec) 


velocity of core exhaust, m/sec (ft/sec) 

velocity of wing duct exhaust, m/sec (ft/sec) 

control volume associated with low-pressure 
turbine, m 3 (ft 3 ) 

control volume associated with wing duct, 
m 3 (ft 3 ) 

airflow at station 21, kg/sec (lbm/sec) 

airflow at station 22, kg/sec (lbm/sec) 

airflow at station 23 at design conditions, 
kg/sec (lbm/sec) 

airflow at station 3, kg/sec (lbm/sec) 
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WA32 


HA32DS 

WA3CDS 

WAC 

WACC 

* WACCDS 

WACCF 

WACDS 

WACI 

WACP 

HAD 

WAF 

HAFC 


airflow at station 32, kg/sec (lbm/sec) 

airflow at station 32 at design conditions, 
kg/sec (lbm/sec) 

corrected airflow in combustor at design 
conditions, station 3, kg/sec (lbm/sec) 

airflow of core compressor, kg/sec (lbm/sec) 

corrected airflow of core compressor, kg/sec 
(lbm/sec) 

design corrected airflow of core compressor, 
kg/sec (lbm/sec) 

correction factor of core-compressor corrected 
airflow 

airflow of core compressor at design conditions, 
kg/sec (lbm/sec) 

corrected airflow of intermediate compressor, 
kg/sec (lbm/sec) 

saved airflow of core compressor, kg/sec 
(lbm/sec) 

airflow of fan duct, kg/sec (lbm/sec) 

airflow of fan compressor, kg/sec (lbm/sec) 

corrected airflow of fan compressor, kg/sec 
(lbm/sec) 


* HAFCDS 

WAFCF 

WAFDS 

W AFP 
WAI 


design corrected airflow of fan compressor, 
kg/sec (lbm/sec) 

correction factor of fan compressor corrected 
airflo w 

airflow of fan compressor at design conditions, 
kg/sec (lbm/sec) 

saved airflow of fan compressor, kg/sec (lbm/sec) 

airflow of intermediate compressor, kg/sec 
(lbm/sec) 
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* WAICDS 
WAICF 
MAIDS 
WAIP 

* RFA 

* WFB 

* WFBDS 

WFD 

MFT 

WG24 

WG37 

WG4 

HG5 

WG50 

WG55 

MG6 

WG6CDS 

WG7 

MGT 

X3LDU 

XBLF 


design corrected airflow of intermediate 
compressor, kg/sec (lbm/sec) 

correction factor of intermediate-compressor 
corrected airflow 

airflow of intermediate compressor at design 
conditions, kg/sec (lbm/sec) 

saved airflow of intermediate compressor, kg/sec 
(lbm/sec) 

fuel flow rate to afterburner (IAFTBN=2 only for 
input) , kg/sec (lbm/sec) 

fuel flow rate to main combustor (M0DE=2 only for 
input) , kg/sec (lbm/sec) 

design fuel flow rate to main combustor 

(MODE= 2 only for input), kg/sec (lbm/sec) 

fuel flow rate to ductburner, kg/sec (lbm/sec) 

total fuel flow rate, kg/sec (lbm/sec) 

gas flow at station 24, kg/sec (lb«/sec) 

gas flow at station 37, kg/sec (lbm/sec) 

gas flow at station 4, _kg/sec (lbm/sec) 

gas flow at station 5, kg/sec (lbm/sec) 

gas flow at station 50, kg/sec (lbm/sec) 

gas flow at station 55, kg/sec (lbm/sec) 

gas flow at station 6, kg/sec (lbm/sec) 

corrected gas flow at station 6 at design 
conditions, kg/sec (lbm/sec) 

gas flow at station 7, kg/sec (lbm/sec) 

total gas flow rate, kg/sec (lbm/sec) 

saved BLDU 

saved BLF 
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XFAR24 

saved 

FAR24 

XFAR55 

saved 

FAR55 

XH21 

saved 

H21 

XH25 

saved 

H25 

XH3 

saved 

H3 

XH55 

saved 

H55 

XNHP 

speed 

of core compressor, rpm 

XNHPDS 

design speed of high-pressure rotor, rpm 

XNIP 

speed 

of intermediate compressor, rpm 

XNIPDS 

design speed of intermediate-pressure rotor. 

XNLDEM 

commanded speed of fan compressor, rpm 

XNLP 

speed 

of fan compressor, rpm 

XNLPDS 

design speed of low-pressure rotor, rpm 

XP1 

saved 

PI 

XP21 

saved 

P21 

XP25 

saved 

P25 

XP55 

saved 

P55 

XS21 

saved 

S21 

XS25 

saved 

S25 

XS55 

saved 

S55 

XT21 

saved 

T21 

XT25 

saved 

T25 

XT55 

saved 

T55 

XWAC 

saved 

W AC 

XWAF 

saved 

WAF 

XWFB 

saved 

WFB 


rpm 
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X WFD 

saved 

WFD 

XWG24 

sa ved 

WG24 

XWG55 

saved 

WG55 

XXP 1 

saved 

P 1 

ZC 

ra tio 

of core- com pressor pressure ratios 

ZCDS 

design 

ratio of core compressor; equals pressure 


ratio at design point on design speed line 
minus value of pressure ratio at lowest 
point on speed line, divided by high (surge) 
value minus low value of pressure ratio on 
design speed line 

ZF ratio of fan- com pressor pressure ratios 

* ZFDS design ratio of fan compressor (see ZCDS for 

ex planation) 

Z I ratio of intermediate- com pressor pressure ratios 

* ZIDS design ratio of intermediate compressor (see 

ZCDS for explanation) 
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APPENDIX B 


FORTRAN LISTINGS 


Main Program DYGABCD 


THIS IS THE MAIN PROGRAM 
IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL SI, EPRER, DUMSPL, FXFN2M, FXM2CP, AFTFAN, FAN 
COMMON /COMALL/ COM (1062) 

DIMENSION WORD (2) , ERR (9) , DUMD1(15), FO(50,4), SD(10,6), 

1 PD AT A ( 5 , 50) , TIMEPT ( 50) , XS(23), PVRDOT(23) 

EQUIVALENCE (WORD(1), COM{1)), (IDES, COM (3)), (JDES, COM (4)), 

1 (KDES, COM (5)), (MODr., COM (6)), (INIT, COM (7) ) , (TDUMP, COM (8) ) , 

2 (IAMTP, COM (9) ) , (IGASMX, COM(IO)), (IDBU8N, COM(11)), 

3 (IAFTBN, COM (1 2 ) ) , (IDCD, COM (13)) , (IMCD, COM(IU)), 

4 (IDSHOC, COM (15)), (IMSHOC, COM (16)), (NOZFLT, COM (17) ) , 

5 (ITRYS, COM (18)) , (LOOFER, C0M(19)), (NOMAP, COM (20) ) , 

6 (NUMMAP, COM (21)), (MAP EDO, COM (22)), (TOLALL, COS (23)), 

7 (ERR ( 1 ) , COM (24)), (PI, COM (33) ) , (H22, COS (34)),* 

8 (AH23, COM (35)), (WA23DS, COM(36)), (T23, COM(37)), 

9 (P23, COM (38)), (H23, COM(39)), (S23, C9M(«0)), (A24, COM (41)), 

1 (124, COM (42) ) , (1(24, COM(43)l, (324, COM (44) ) , (AK25, COM (45) ) , 

2 (T25, COM (46) ) , (P25, COM (47) ) , (H25, COM (48) ) , (S25, COM (49) ) , 

3 (A 2 8, COM (50) ) , ( A 28 S A V, COM (51)), (AM28, COM (52)), 

4 (V28, COM (53) ) , (TS28, COM (54) ) , (PS29, COM (55) ) , (T28, COM (56) ) 

5 (P28, COM (57) ) , (H2S, COM (58)), (S28, COM<59)), (A29, C0M(60)), 

6 (A29SAV, COM (61)) , (AM29, COM(62)), (V29, COM(63)), 

7 (TS29, COM (64)), (PS29, COM (55) ) , (T29, COM (66)), (P29, COM (67) ) 

8 (H29, COM (68)), (S29, COM (69)), (BYPASS, COM (70)), 

9 (WAD, COM (71)), ( WFD , COM (72)), (ETAD, COM (73)), 

1 (DPDUC, COM (74) ) , (DPDUDS, COM (75)), (XXPl, COM (78)) 

EQUIVALENCE ( XWG24 , COM(77)), (XFAR24, CCM(78)), (XT25, COM(79)) 

1 (XP25 , COM (80) ) , (XH25 , COM(31)), (XS25, COM(82)), 

2 (XWG55, COM (83) ) , (XFAR53, COM (84) ) , (XT55, COM (85) ) , 

3 (XP55 , COM (86)), (XHS5, COM (97)), (XS55, COM (98) ) , 

4 (XWFB, COM (89)), (XWFD, COS (90)), (T2DS, COS (91)), (T2, COM (92)) 

5 (P2 , COM (93) ) , (H2 , COM(94)), (52, COM (95)), (S22, COM (96)), 

6 (T 22DS , COM (97 ) ) , (A25, COM(93)), (V25, COS (99) ) , 

7 (T4GU, COM (100)), (T4DS, COM(IOI)), (T5, COM(102)), 

8 (H5, COM (103) ) , (S 5 , COM(104)), (SG9, COM (105)), 

3 (FAP5, COM (106) ) , ( AM 55, COM (107)), (V55, COM(103)), 

1 ( A 5 5 , COM (109)) , (PS55 , COM(IIO)), (S6, COM(III)), 

2 (PS6, COM (112)), (V6 , COM (113) ) , (TFHPCF, C0N(114)), 

3 (CNHPCF, COM (115)) , (ETHPCF, COM (116)), (DHHPCF, COM (117)), 

4 (TFHPDS , COM (118)) , (CNHPDS, COM(11 0 )), (ETHPDS, COM (120)), 

5 (PRFCF, CO*(121)), (ETAFCF, COM (122)), (WAFCF, COM (123)), 

6 (PCNFDS, COM (1 24) ) , (PRFDS, CO«(12?)), (ETAFDS, CO M(126)), 

7 (WAFDS, COM (127)), (PCNCGU, COS (128)), (HPEXT, COM(129)), 

3 (WACCDS, COM ( 1 30) ) , (PPF, COM (131) ) , (ETA F , COS(132)), 

9 (ZCDS, COM (133)), (CNF, GOM(134)), (WAFC, COM(135)), 

1 (ZF, COM (136)), (PCNF, COM (137)), (PCBLF, COM(138)) 

EQUIVALENCE (ZI, COM (139)), (PCNI, COS (140)), (TFFIP, COS (141)), 

1 (CHIP, COM (142)), (ETATIP, COM (143)), (DHTCIP, COM (144)), 

2 (DHTI, COM (14 b)), (ZIDS, COS(146)), (PCNIDS, COM(147)), 

3 (PCNIGU , COM (148) ) , (T1, COM (149)), (Hi, COM(150)), 

4 (Si, COM (15 1)), (T3, COS (152)) , (H3, COM(153)), (WA3, COM (154)), 

5 (WA3CDS, COS (155)), (T4, CCS (156)), (H4, COM (157)), 

6 (S4, COM (158)), (WG4, COM (159)), ( F A E 4 , COM (160)), 

7 (T50, COM (161)) , (H50 , COM(162)), (S50, COM(163)), 


ABCOOCO 1 
ABCDO 002 
A3CD0P07 
ABCD0C04 
A3CD0C03 
ABCDO 00 5 
ABCDOCO 7 
ABC0PO03 
A3CDOO09 
A9CD001 0 
A3CD0 011 
A8CD0012 
ABCD001 3 
A3CD001 4 
ABCD0F1 5 
A3CDOO 15 
ABCD0P1 7 
A BCD OF 1 9 
ABCDO 01 9 
, ABCD0029 
ABCD002 1 
ABCD0022 
, ABCD n 02 ? 
ABCO0P24 
A BCD 0 02 5 
ABCD0025 
, ABCD0027 
A3CD002P 
A3CD002? 
ABC DO 030 
, ABCDO 03 1 
ABCD0032 
ABCD003 3 
ABCDO 034 
APCDCC35 
ABCD0P35 
ABCD0037 
ABCD003R 
ABCD0039 
ABCD004 3 
ABCDOO'41 
ABCDO 0 4 2 
ABCD0043 
ABCDO 04 4 
ABCDCF45 
ABCDO 04 5 
ABCD0047 
ABCDO 04 8 
ABCD0049 
ABCD0050 
ABCDO 051 
ABCD0C52 
ABCDO 05 3 
ABCD0054 



8 (8G50, COM (164)), (FAH50, COB (165) ) , (PCBLHP, COB (166)), 

9 (PCBLIP, COB (167)), (PCBLLP, COB(168)), (PCBLDO, COB (.169)), 

1 (PCBLOB , COB (170)), (CBHP, COB(171)), (BTATHP, COB (172)), 

2 (DHTCHP, COB (173)), (DHTC, COB (174)), (TFFHP, COB (175)), 

3 (PBICF, COB (176)) , (ETAICF, COB(177)), (HAICF, COB(178)) % 

4 (ETABCF, COB (179)), (PRIDS, COB (190)), (ETAIDS, COB (181)), 

5 (fAIDS, COB ( 1 82) ) , (MAICDS, COB (183)), (ETABDS, COB(184)), 

6 (HFBDS , COB (185) ) , (ZFDS, COB(185)), (ETAB, C0B(187)) 4 

7 (ETAI, COB (188)), (PRI, COB (189)), (ETAB, COB (190)), 

8 (WAC, COB (191) ) , (HFB, COB(192)), (BLC, COB(193)), 

9 (CS, COB (194) ) , (AB, COB(195)), (ALTP, COB(196)), 

1 (DPCODS, COB (197)), (DPCOB, COB (198)), (PCNFGO, COB (199)) 
EQUIVALENCE (XP1 , COB (200)), (XT21, COB (201)), (XP21, COB (202) ) , 

1 (XH21, COB (203)), (XS21, COB (204)), (XH3, COB (205) ) , 

2 ( XWAF , COB (206)), (XHAC, COB(2D7)), (XBLF* COB (208)), 

3 (XBLDO, COB (209)), (WG37, COB (210)), (A38, COB (211)), 

4 (AB38, COB (212)), (V38, C0B(213)), (T38, COB (214)), 

5 (838 , COB (215)) , (P38, CON(216)), (TS38, COB(217)), 

6 (PS38, COB (218)), (A39, C0B(219)), (AB39, COB(220)), 

7 (V39, COB (221)), (T39, C0B(222)), (H39, COB (223) ) , 

8 (P39, COB (224)), (TS39, COB (225)), (PS39, COB (226)), 

9 (BA32DS, COB (227)), (DPWING, CON (228)), (BPRINT, COB (229) ) , 

1 (FGBHNG , COB (230)), (FGPSJ NG, COB(231)), (FNNING, COB (232) ) , 

2 (FNBAIN, COB (233)), ( FHOVFN, CDB(234)), (DPWGDS, CON (235) ) , 

3 (DELFG , COB (236) ) , (DELFN, CON(237)), (DELS FC, COB(238)), 

4 (CVDWNG, COB (239) ) , (CVDN3Z, COB (240) ) , (CVMNOZ, COB(241)), 

5 (VA, COB (242)), (VJD, COB (243)), (VJW, COB (244)), 

6 (VJB, COB (245)), (WFT , COB (245)), (HGT, COB (247) ) , 

7 (S FC, COB (248)), (T FAR , COB (249)), (FRD, COB (250)), 

8 (FGBD , COM (251) ) , (FG MM, COM(252)), ( FGPD, COM (253) ) , 

9 ( FGPS, COB (254)), (FGM, COM (255) ) , (FGP, COB (256) ) , 

1 (FG, COB (257) ) , (FN, COB(258)), (FFOVFN, COB(259)) 

EQUIVALENCE (FCOVFN, COM(260)), ( FMNOFN, COM(261)), 

1 (FNOVFD, COB (262)) , (T21, COB(263)), (H21, CON(264)), 

2 (S21 , COM (265) ) , (WA21, COB(255)), (T2 IDS, C0B(267)), 

3 (122, COM (268)), (HA22, COB (269)), (S3, COM (270) ) , 

4 (HA 32, COM (27 1) ) , (T55, COM(272)), (H55, COB(273)), 

5 (S55 , COM (274)), (TFLPDS , COM(275)), (CNLPDS, COM (276)), 

6 ( EILPDS , COB (277)), (TFIPDS, COM (278)), (CNIPDS, COB (279) ) , 

7 (ETIPDS, COM (280)), (TFLPCF, COB(281)), (CNLPCF, COM (282) ) , 

8 (ETLPCF, COM (283)), (DHLPCF, COM (284)), (TFIPCF, COM (285)), 

9 (CNIPCF, COM (286)), (ETIPCF, COM(287)), (DHIPCF, COB (288)), 

1 (TFFLP, COM (289 ) ) , (CNLP, COM(290)), (ETATLP, COB(291)), 

2 (DHTCLP, COM (292) ) , ( DHTF, COM(293)), (PRCCF, COM(294)), 

3 (ETACCF, COM (295)), (WACCF, COM (296)), (PRCDS, COM (297) ) , 

4 (ETACDS, COM (298)), (WACDS, COM (299)), (ZC, COB (300)), 

5 (PC NC , COM (301)), ( PCBLC, C0M(302)), (PCNCDS, COM (303)), 

6 (PCBLI , COM (304) ) , (PCBLID, COM(305)), (CNC, COM(306)), 

7 (PRC, COM (307) ) , (ETAC, C3M(308)), (CNI, COM(309)), 

8 (HACI, COM (310)), (WAI, COM(311)), (ELI, COH(312)), 

9 (BLHP, COM (313) ) , (BLIP, COM(314)), (BLLP, COM(315)), 

1 (BLF, COM (316) ) , (BLDU , COM(317)), (BLOB, COfl(318)) 

EQUIVALENCE (WAF, COM(319)), (»ACC, C0M(320)), (»G24, COM(321)), 

1 (FAR24, COM (322) ) , (WG55, COM(323)), (FAP55, COM(324)), 


ABCD0055 
ABCD0055 
ABCD0057 
ABCD0053 
ABCD0053 
ABCD0060 
ABCD005 1 
ABCD0062 
ABCD0063 
ABCD0054 
ABCD0065 
ABCD006 6 
ABCD006 7 
ABCD0053 
ABCD005 9 
ABCD0070 
ABCD007 1 
ABCD0072 
ABCD0073 
ABCD007 4 
ABCD0075 
ABCD0075 
ABCD0077 
ABCD0073 
ABCD0079 
ABCD0080 
ABCDC081 
ABCD0082 
ABCD0083 
ABCDO 084 
ABCD0085 
ABCD0085 
ABCD0087 
ABCDO 08 3 
A BCD 008 9 
ABCD0090 
ABCD009 1 
ABCD0092 
ABC DO 0 9 3 
ABCD0094 
ABCDO 095 
ABCDO 09 6 
ABCD0097 
ABCDO 0 9 3 
A BCD 0 09 9 
ABCDO 100 
ABCDO 101 
ABCDO 102 
ABCDO 103 
ABCDO 104 
ABCDO 105 
ABCDO 105 
ABCDO 107 
ABCDO 103 
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I 


I ■ III I 


2 (P6DSAV, COM (325) ) , (AM6D5V, COM(326)), (AM6 , COM (327)), 

3 (A6 , COM (328)), (WG6CDS, COM(329)), (WG6, COM(330)), 

4 (T6, COM (331) ) , (P6, COM(332)), (H6, COM(333)), (WG7 , COM(334)), 

5 (FART, COM (335)), (FAR7SV, COM (336)), (TS7 , COM(337)), 

6 (PS7, COM (338)), (V7, COM (339)), (AH7, COM (340) ) , (A7, COM (341)) 

7 (T7DS, COM (342) ) , (T7, C0M(343)), (H7, COM (344)), (S 7, COM (345)) 

8 (A8 , COM (346) ) , (ASSAY, COM (347) ) , (TS8, COH(3«8)), 

9 (PS8, COM (34 9)), (V8, COM(350)), (AM8, COM(351)), (T8, COM (352) ) 

1 (P8 , COM (353) ) , (H8 , COM (3 54) ) , (S8, COM (355) ) , (A9, COM (35')), 

2 (A9SAV, COM (357) ) , (TS9, COM(358)), (PS9, COM(359)), 

3 (?9, COM (360) ) , (AM9 , COM (361)), (T9, COM(362)), (P9, COM(363)), 

4 (H9, COM (364) ) , (39, COM(3r5)>, (ETAADS, COM(366)), 

5 (DPAFDS , COM (367)), (WFA, COM(368)), (ETAA, COM (369) ) , 

6 (ETAASV, COM (370)), (DPAFT , COM (371)), (XNHP, COM (372)), 

7 (XNIP, COM (373) ) , (XNLP, COM(374)), (P22, CON(375)), 

8 (U22 , COM (376) ) , (P21, COM<377)), (U21, COM (378) ) , 

9 (P3, COM (379) ) , (03, COM(380)), (P4, COM(381)), (U4, COM(382)), 

1 (P50, COM (383) ) , (050, CON(384)), (P5, COM (385) ) , (05, COM(385)) 

EQUIVALENCE (P55, COM(387)), (055, COM(388)), (P7, C0M(389)), 

1 (07, COM (390)), (P24, COM (391)), (024, COM (392) ) , 

2 (P37, COM (393)), (037, COM (394)), ( VFAN, COM (395) ) , 

3 (VINTC, COM (396) ) , (VCOMP, C0M(397)), (VCOMB, COM(398)), 

4 (VHPTRB, COM (399)), (VIPrRB, COM (400)), (VLPTRB, COM (401)), 

5 (VAFTBN, COM (402)), (VFDOCT, COM (403)), (VMDOCT, COM (404)), 

6 (DUMDI(I), COM (4 05) ) , (WAFP, COM (420) ) , (HAIP, COM (421 ) ) , 

7 (MACP, COM (422)), (XNHPDS, COM (423) ) , (XNIPDS, COM (424) ) , 

8 (XNLPDS, COM (425)), (PMIHP, COM (426)), (PMIIP, COM (427) ) , 

9 (PMILP , COM (428) ) , (DELT1 , COM(429)), ( FO ( 1 , 1 ) , COM(430)), 

1 (XNLDEM , COM (63 0) ) , (SO (1,1), COH(631)), (PDATA(1,1), COM (691)), 

2 (riMEPT(l), COM (94 1) ) , (PRFNEH, C0M(991)), (PRCNEH , COM(992)), 

3 (TIME, COM (993)), (DT , COM (994)), (TF, COM (995) ) , 

4 (TPRINT , COM (996) ) , (DTPRNT, COM(997)), (PVRDOT(I), COM{998)), 

5 (XS(1), COM (1021)), (ISPOOL, COM(1044)), (ICOAFB, COM (1045)), 

6 (ICODUC, COM (1046)), (ICOMIX, CDM(1047)), ( KKGO, COS( 1048)), 

7 (ITRAN, COM (1049)) , ( JTRAN , COM (1050)), (NSTEP, COH(1051)), 

8 (IVRDOT , COM (1 052) ) , (IDOT, COM(1053)), (IAMTRX, COM(1054)), 

9 (SI, COM (1055)), (ERRER, COM (1056)), (DOMSPL, COM(1057)), 

1 (FXFN2M, COM ( 1058) ) , (FXM2CP, COM(1059)), (AFTFAN, COM(1060)) 
EQUIVALENCE (FAN, COM (1051)), (HAFCDS , COM (1062)) 

ERRER = ..FALSE. 

ITRAN = 0* 

JTRAN = 0 
NSTEP = 0 
TIME = 0.0D0 
TPRINT = 0.0D0 
DTPRNT = 0.0D0 

IDOT = 0 

IAMTRX = 0 
DO 1 J = 3,404 

1 WORD (J) = 0.0D0 

DO 2 J = 1057,1062 

2 HORD(J) = 0.0D0 

ISPOOL = 0 

C SET ARBITRARY VALUES FOE INTERMEDIATE SPOOL DESIGN PARAMETERS TO 


ABCD0109 
ABCD0110 
ABCD0111 
ABCD0112 
, ABCDO 113 
, ABCDO 114 
ABCD01 1 5 
, ABCD0115 
ABCD0117 
ABCDO 1 1 3 
A BCD^' 
ABCDO 120 
A3CD0121 
ABCD0122 
ABCDO 123 
ABCD0124 
ABCDO 125 
ABCDO 126 
ABCDO 127 
ABCDO 123 
ABCD0129 
ABCDO 130 
ABCDO 131 
ABCDO 1 32 
ABCDO 133 
ABCDO 1 34 
ABCDO 135 
ABCDO 136 
ABCD0 1 3 7 
ABCDO 133 
ABCDO 1 3 9 
ABCDO 140 
ABCDO 141 
ABCD01 42 
ABCDO 143 
ABCDO 144 
ABCDO 145 
ABCDO 145 
ABCD0147 
ABCDO 143 
ABCDO 14 9 
ABCDO 153 
ABCD0151 
ABCD0152 
ABCDO 153 
ABCD0 1 5 4 
A BCDO 155 
ABCDO 155 
ABCDO 15 7 
ABCDO 158 
ABCDO 159 
ABCD0 1 6 0 
ABCDO 161 
ABCDO 162 
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C AVOID ERROR WHEN RUNNING A DUMMYSPOOL ENGINE 

PRIDS = 1.5D0 
ETAIDS = I.ODO 
PCNIDS = 100. 0D0 
ZIDS = . 75D0 
PCNCDS = 100. 0D0 
KKGO = 0 
CALL CONOUT ( 1 ) 

P6DSAV = 1.0D0 
AM6DSV = I.ODO 
ETAASV = I.ODO 
FAR7SV = I.ODO 
CALL ENGBAL 
STOP 
END 

Subroutine AFQUIR 


ABCD0163 
ABCD0154 
ABCD0165 
ABCDO 15 
ABCD016 
ABCDO 16 
ABCD0 1 6 
ABCDO 17 
ABCDO 1 7 
ABCDO 1 7 
ABCDO 1 7 
ABCDO 1 7 
A3CD017 
ABCDO 1 7 
ABCDO 1 7 


SUBROUTINE AFQUIR ( X , A I ND, DEPEND , AN S, AJ , TOL , DIR , ANEW, ICON) 
IMPLICIT REAL*8 (A-H,0-Z) 

DIMENSION X (9 ) 

C X ( 1 ) =NAME OF ARRAY TO USE 
C AIND=INDEPENDENT VARIABLE 
C DEP£ND= DEPENDENT VARIABLE 
C ANS=ANSWER UPON WHICH TO CONVERGE 
C AJ=MAX NUMBER OF TRIES 

C TOL= PERCENT TOLERANCE FOR CONVERGENCE 
C DIR=DIRECTION AND PERCENTAGE FOR FIRST GUESS 
C ANEW=CALCULATED VALUE OF NEXT TRY AT INDEPENDENT VARIABLE 
C ICON=CONTROL =1 GO THRU LOOP AGAIN 
C =2 YOU HAVE REACHED THE ANSWER 

C =3 COUNTER HAS HIT LIMITS 

C X ( 2 ) =COUNTE R STORAGE 
C X ( 3 ) =CHOOS ES METHOD OF CONVERGENCE 
C X ( 4) =THIRD DEPEND VAR 
C X (5) =THIED IND VAR 
C X (6) = SECOND DEPEND VAR 
C X (7) =SECOND IND VAR 
C X ( 8) =FIR ST DEPEND VAR 
C X (9) =FIRST IND VAR 

C X ( 3) MUST BE ZERO UPON FIRST ENTRY TO ROUTINE 
Y = 0 . 0 DO 

IF (ANS .EQ. O.ODO) GO TO 2 
DEF = DEPEND - ANS 
TOLANS = TOL * ANS 
GO TO 3 

2 DEP = DEPEND 
TOLANS = TOL 

3 IF (DABS (DEP) . LE. TOLANS) GO TO 5 
IF (X (2) - AJ) 8,8,7 

5 ANEW = AIND 

X (2) = O.ODO 

ICON = 2 
RETURN 


ABCDO 1 7 
ABCDO 17 
ABCDO 1 3 
ABCDO 1 8 
ABCDO 1 8 
ABCDO 1 8 
ABCDO 1 8 
ABCDO 18 
ABCDO 1 8 
ABCDO 13 7 
ABCDO 188 
ABCDO 13 9 
ABCDO 190 
ABCDO 19 1 
ABCD0192 
ABCDO 193 
ABCD0194 
ABCDO 195 
ABCDO 195 
ABCDO 1 9 7 
ABCDO 198 
ABCDO 19 9 
ABCD0200 
ABCDO 20 1 
ABCD0202 
ABCDO 20 3 
ABCD0204 
ABCD0205 
ABCD0206 
ABCDO 20 7 
ABCD0209 
ABCD0209 
ABCD021 0 
ABCD021 1 
ABCDO 2 1 2 
A3CD021 3 
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ill iiiiii i ■111111 


6 

AN EH = I 

X (2) = X (2) + I.ODO 

ICON = 1 

REIUBN 


ABCD021 4 
ABCD0215 
ABCD021 5 
ABCD021 7 

7 

ANEW = T 
X (2) = O.ODO 
ICON = 3 
RETURN 


ABCD021 8 
ABCD0219 
ABCD0220 
ABCD0221 

8 

IF (X (3) .GT. O.ODO) GO TO 12 


ABCD0222 

C *** 

FIRST GUESS USING DIR 


ABCD0223 

9 

X (3) = I.ODO 
X (8) = DEP 

X (9) = AIND 

IF (AIND .EQ. O.ODO) GO TO 11 


ABCD0224 

ABCD0225 

ABCD0225 

ABCD0227 

10 

Y = DIR * AIND 
GO TO 6 


ABCD0223 

ABCD0229 

11 

Y = DIB 
GO TO 6 


ABCD0230 

ABCD0231 

12 

IF (X (3) .GT. I.ODO) GO TO 16 


ABCD0232 

c *** 

LINEAR GUESS 


ABCD0233 

13 

X (3) = 2.0D0 
X (6) = DEP 

X (7) = AIND 


ABCD0234 

ABCD0235 

ABCD0235 


IF (X (8) .EQ. X (6) .OR. X (9 ) .EQ. X (7) ) 
A = (X (9) - X (7) ) / (X ( 8) - X (6) ) 

Y = X (9) - A * X(8) 

GO TO 9 

ABCD023 7 
ABCD0233 
ABCD0239 


IF (DABS (10.0D0 * X(9)) - DABS ( Y) ) 9,9 

,6 

ABCD024 0 

C *** 

QUADRATIC GUESS 


ABCD024 1 

15 

X (4) = DEP 
X (5) = AIND 

IF (X (7) .NE. X (5) ) GO TO 18 
IF (X (6 ) - X (4) ) 13,9,13 


ABCD0242 
ABCD0243 
ABCD024 4 
ABCD0245 

18 

IF (X (6) .EQ. X (4) ) GO TO 13 

IF (X (9) .NE. X (5) ) GO TO 23 

IF (X (8) .EQ. X (4) ) GO TO 22 


ABCD0246 
ABCD024 7 
ABCD024 8 

21 

X (9) = X (7) 
X (8) = X (6 ) 
GO TO 13 


ABCD0249 

ABCD0250 

ABCD0251 

22 

X (9) = X (7) 

X (6) = X (6) 

X (3) = I.ODO 

IF (X (9) ) 10,11,10 


ABCD0252 

ABCD0253 

ABCD0254 

ABCD0255 

23 

IF (X (8) .EQ. X (4) ) GO TO 21 
F = (X (6) - X(4) ) / (X (7) - X (5) ) 


ABCD0256 

ABCD0257 


A = (X (8) - X (4) - F * (X (9 ) - X (5) ) ) / 

( (X (9) - X(7)) * 

ABCDC258 

1 

(X (9) - X (5) ) ) 

B = F - A * (X (5) + X (7) ) 

C = X (4) * X (5) * (A * X (7) - F) 

IF (A .NE. O.ODO) GO TO 27 
IF (B .EQ. O.ODO) GO TO 7 
Y = -C / B 
GO TO 47 


ABCD0259 
ABCD0260 
ABCD026 1 
ABCD0252 
ABCD026 3 
ABCD9254 
ABCD0265 

27 

IF (B .NE. O.ODO) GO TO 32 
IF (C .NE. O.ODO) GO TO 30 


AECD0255 
ABCD026 7 
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Y = O.ODO 


ABCD0253 


GO TO 47 


ABCD0269 

30 

G = -C / A 


ABCD0270 


IF (G .LE. O.ODO) GO TO 7 


ABCD0271 


Y = DSQHT(G) 


ABCDC272 


YY = -DSQ8T (G) 


ABCD0273 


GO TO 37 


ABCD0274 

32 

IF (C . NE. O.ODO) GO TO 34 


ABCD0275 


Y = -B / A 


ABCD0275 


YY = O.ODO 


ABCD0277 


GO TO 37 


ABCD0273 

34 

D a 4.0D0 * A * C / B ** 2 


ABCD0279 


IF (1.0D0 - D) 13,35,36 


ABCD0290 

35 

Y = -B / (2.0D0 * A) 


ABCD023 1 


GO TO 47 


ABCD0282 

36 

E = DSQRT ( 1 . 0D0 - D) 


ABCD0233 


Y a (-B / (2 . 0D0 * A)) * (1.0DD + E) 


ABCD0284 


YY = (-B / (2.0D0 * A)) * (1.0D0 - E) 


ABCD0285 

37 

J a 4 


ABCD023 5 


DEPMIN = DABS (X (4) ) 


ABCD0287 


DO 39 I = 6,8,2 


ABCD0298 


IF (DEPMIN .LE. DABS (X (I))) GO TO 39 


ABCD0289 


J = I 


ABCD0290 


DEPMIN = DABS (X (I) ) 


ABCD0291 

39 

CONTINUE 


A3CD0292 


K = J + 1 


ABCD0293 


IF ( ( (X (K) - Y) * (X (K) - YY)) .LE. O.ODO) 

GO TO 42 

A3CD0294 


IF ( (DABS ( X (K) - Y) - DABS(X(K> - YY) ) . LE. 

O.ODO) GO TO 47 

ABCD0295 


Y = YY 


ABCD0296 


GO TO 47 


ABCD0297 

42 

IF (J .GE. 6) GO TO 44 


ABCD0298 


JJ = J ♦ 2 


ABCD0299 


KK = K ♦ 2 


ABCD0300 


GO TO 45 


ABCD0301 

44 

JJ = J - 2 


ABCD0302 


KK = K - 2 


ABCD0303 

45 

SLOPE = (X ( KK) - X(K)) / (X (JJ) - X (J) ) 


ABCD0304 


IF ((SLOPE * X(J) * (X(K) - Y) ) .3T. O.ODO) 

GO TO 47 

ABCD0305 


Y = YY 


ABCD0306 

47 

X(9) = X (7) 


ABCD0307 


X(8) = X (6) 


ABCD0308 


X (7) = X (5) 


ABCD0309 


X (6) = X (4) 


ABCD031 0 


GO TO 6 


ABCD0311 


END 


ABCDO 312 


Subroutine ATMOS 




SUBROUTINE ATMOS (ZFT ,T M , S IGM A, R HO, THETA, DELTA, CA , AMU , K) 

ABCD0313 


IMPLICIT REAL*8 (A-H,0-Z) 


ABCDO 314 


LOGICAL SI 


ABCD0315 

C 

THIS IS A SUBROUTINE TO COMPOTE CERTAIN ELEMENTS OF THE 1962 

ABCD031 6 

c 

U.S. STANDARD ATMOSPHERE UP TO 90 KILOMETERS. 


ABCDO 317 

c 

CALLING SEQUENCE... 


ABCD0313 


45 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 


1 

2 

3 


CALL ATMOS (ZFT, TM, SIGMA, RHO, THETA, DELTA, CA , AMU, K) 

ZFT = GEOMETRIC ALTITUDE (FEET) 

TM = MOLECULAR SCALE TEMPERATURE (DEGREES RANKINE) 

SIGMA = RATIO OF DENSITY TO THAT AT SEA LEVEL 

RHO = DENSITY (LB-S EC** 2 - FT ** (-4) OR SLUG- FT** (-3) ) 

THETA = RATIO OF TEMPERATURE TO THAT AT SEA LEVEL 

DELTA = RATIO OF PRESSURE TO THAT AT SEA LEVEL 

CA = SPEED OF SOUND (FT/SEC) 

AMU = VISCOSITY COEFFICIENT (LB-S EC/FT **2) 

K = 1 NORMAL 

= 2 ALTITUDE LESS THAN -5300 METERS OF GREATER THAN 90 KM 
= 3 FLOATING POINT OVEFFLOH 

ALL DATA AND FUNDAMENTAL CONSTANTS ARE IN THE METRIC SYSTEM AS 
THESE QUANTITIES ARE DEFINED AS EXACT IN THIS SYSTEM. 


THE RADIUS OF THE EARTH (EEFT59) IS THE VALUE ASSOCIATED WITH THE 
1959 AR DC ATMOSPHERE SO THAT PROGRAMS CURRENTLY USING THE LIBRARY 
ROUTINE HILL NOT REQUIRE ALTERATION TO USE THIS ROUTINE. 

COMMON /COMALL/ COM (1062) 

DIMENSION HB (1 0) , TMB(10), DELTAB(IO), ALM ( 10) 

EQUIVALENCE (SI, COM (1055)) 

DATA HB / -5.0D0, 0.0D0, 1 1 . 0 DO , 20.0D0, 32.0D0, 47.0D0, 

1 6 1 . 0 DO , 79.0D0, 88.743D0 / 

DATA TMB / 320.65D0, 288.15D0, 2 * 216.65D0, 228.65D0, 

1 2 * 270.65D0, 252.65D0, 2 * 180.65DO / 

DATA DELTAB / 1.75363D+00, 1. 00000D+00, 2.23361D-01, 

1 8. 56663D-03, 1.09455D-03, 5.82289D-04, 1.7S718D-04, 

2 1.6223D-06 / 

DATA ALM / 2 * -6.5D0, 0.3D0, 1.0D0, 2.8D0, 0.0D0, 

1 -4.0D0, 2 * 0.0D0 / 

GZ /9. 80665D+00/, 

RSTAR /8.31432D+00/, 

S /1.104D+02 /, 

C&Z /I . 1 1645D+03/, 

GZENG /3. 21741 D+O 1/ 

GEOPOTENTIAL ALTITUDE 
IF IN SI UNITS, CHANGE ZFT TO FEET 
IF (SI) ZFT = ZFT * 3.280833DO 
HFT = ( REFT59 / (REFT59 * ZFT)) * ZFT 
CONVERT HFT AND ZFT TO KILOMETERS 


DATA 

1 

2 

3 

4 

ION VERT 


REFT59/2. 085553 1D+07/, 
AMZ /2.89644D+01 /, 

FTTOKM/3 .048D-04 /, 

AMUZ / 1 . 2024D-05 /, 

RHOZ /7.6474D-02 /, 

GEOMETRIC ALTITUDE TO 


Z = FTTOKM * ZFT 
H = FTTOKM * HFT 
K = 1 

TMZ = TMB (2) 

IF (H .LT. -5.0D0 .OR. Z .GT. 90.0D0) 

DO 1 M = 1 ,10 

IF (H - HB (M) ) 2,3,1 

CONTINUE 

GO TO 7 

M = M - 1 

DELH = H - HB (M) 


ABCD031 9 
ABCD0320 
ABCD0321 
ABCD0322 
ABCD0323 
ABCD0324 
ABCD0325 
ABCD0325 
ABCD0327 
ABCD0328 
ABCD0329 
ABCD0333 
ABCD0331 
ABCD0332 
ABCD0333 
ABCD0334 
ABCD0335 
ABCD0335 
ABCD0337 
ABCD0333 
A BCDO 33 9 
ABCD0340 
ABCD034 1 
ABCD0342 
52.0D0, ABCD0343 
ABCD0344 
ABCD0345 
ABCD0346 
5.40328D-02, ABCD0347 
1. 0 24 ID- 05, ABCD0348 
A BCDO 3 4 9 
-2.0D0, ABCD0350 

A3CD0351 
A3CDC352 
A3CD0353 
ABCDC354 
ABCD0355 
ABCD0356 
ABCD0357 
ABCD0358 
A3CD035 9 
ABCD0363 
ABCD0361 
ABCD0362 
ABCD0363 
A BCDO 3 6 4 
ABCD0365 

GO TO 7 A BCDO 36 5 

ABCD0367 
ABCD0368 
ABCD0369 
ABCD0370 
ABCD0371 
ABCD0372 
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non 'J -kononoo 


IF (ALM(M) .EQ. 0.0D0) GO TO 4 
THK = THB(M) ♦ ALB (M) * DELH 

C GRADIENT IS NON ZERO, PAGE 10, EQUATION 1. 2. 10- (3) 

DELTA = DELTAB(B) * ((TBB(B) / TBK) ** (GZ * ABZ / 

1 (RSTAR * ALB (B) ) ) ) 

GO TO 5 

4 TBK = TBB(B) 

C GRADIENT IS ZERO, PAGE 10, EQUATION I.2.10-(4) 

DELTA = DELTAB(fl) * DEXP(-3Z *'AMZ * DELH / (RSTAR * TBB (B ) ) ) 

5 THETA = TBK / TNZ 

SIGBA = DELTA / THETA 

ALPHA = DSQRT (THETA ** 3) * ( (TSZ + S) / (TBK + S) ) 

C CONVERSION TO ENGLISH UNITS 
TB = 1.8D0 * THK 
RHO = RHOZ * SIGBA / GZENG 
CA = CAZ * DSQRT (THETA) 

ABU = AHUZ * ALPHA / GZENG 
IF (SI) GO TO 100 
GO TO 101 

100 TH = TB / 1.8D0 

RHO = RHO * 515.379D0 
CA = CA * . 3048D0 
ABU = ABU * 47. 880258D0 
ZFT = ZFT / 3. 280833D0 
IF IN SI UNITS: 


TM 

DEGREES KELVIN 

RHO 

KG/M**2 

CA 

M/SEC 

AHU 

(N-SEC) /M**2 

ZFT 

M 


1 CALL OVERFL (J) 

IF (J .EQ. 2) RETURN 

K = K ♦ 2 

RETURN 

K = 2 

RETURN 

END 


ABCD0373 

ABCD0374 

ABCD0375 

ABCD0376 

ABCD0377 

ABCD0373 

ABCD0379 

A3CD0330 

ABCD0381 

ABCD03R2 

ABCD0333 

ABCD0384 

ABCD0335 

ABCD0386 

ABCD0337 

ABCDO 383 

ABCDO 3 39 

ABCD0390 

ABCD0391 

ARCD0392 

ABCD0393 

A8CD0334 

AECD0395 

A3CD0396 

ABCD0397 

ABCD0393 

ABCD0399 

ABCDCUOO 

ABCDO 4 01 

ABC DO I- 0 2 

ABCDO 4 3 3 

ABCD0404 

A3CD0405 

A BCD 04 0 e 

ABCDO u 0 7 

A3CD04 03 

ABCD04D9 


Block Data 


BLOCK DATA 

IMPLICIT REAL*8 (A-H,0-Z) 

THESE ARE THE GENERALIZED MAPS FOR AN UNREALISTIC SUPERSONIC 
ENGINE. THEY INCLUDE: FAN, INTERMEDIATE FAN, COMPRESSOR, 

COMBUSTOR, AND HIGH, INTERMEDIATE AND LOW TURBINES. 

COMMON /COMDAT/ COMD(5423) 

DIMENSION CNXF (15) , PRXF(15,15), » ACX F ( 1 5 , 1 5) , ET AXF ( 1 5, 1 5) , 

1 NPTF ( 15) 

DIMENSION CNXIN ( 15) , PRXIN (15,15) , W ACX IN ( 1 5, 1 5) , ET A XIN ( 1 5 , 1 5 ) , 
1 NPTI ( 1 5) 

DIMENSION CNXP ( 15) , PRXP(15,15), HACXP (15, 15) , ET A XP ( 1 5 , 1 5 ) , 

1 NPTP (15) 

DIMENSION PS IXB ( 15) , DELX3 (15,15) , ETA XB ( 1 5 , 1 5 ) , NPT5(15) 
DIMENSION TFF XH (15) , CNXH(15,15), DHT CXH ( 1 5 , 1 5 ) , ET A TXH ( 1 5 , 15 ) , 


A3CD0410 
ABCDOI‘1 1 
ABCDO 412 
A3COO 4 13 
A BCD 0 4 1 4 
ABCDO 4 13 
ABCD041 5 
A3CD0U1 7 
ABCDO 4 1 3 
ABCD041 9 
ABCDO 4 2 0 
ABCD0421 
ABCD0422 
ABCDO 423 
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1 NPTTFH ( 1 5) 

DIMENSION TFFXI { 15) , CNXI(15,15), DHTC XI ( 1 5 , 1 5 ) , ETATXT (15,15) , 

1 NPTTFI (15) 

DIMENSION CNXI1 ( 15, 14) , 01X12(15,1) 

DIMENSION TFFXL (15), CNXL(15,15), DHT CXL ( 1 5 , 1 5 ) , ETATXL (15, 15) , 

1 NPTTFL (15) 

DIMENSION CNXL1 ( 15, 14) , CNXL2(15,1) 

EQUIVALENCE (CNXF(1), C0MD(1)), (PBXF(1,1), C0MD(16)), 

1 (WACXF (1,1), COMD (241) ) , (ETAXF{1,1), COMD (466) ) , 

2 (NCNF, COMD (5296) ) , (NPTF(1), COMD{5297)) 

EQUIVALENCE (CNXIN(I), C3MD(691)), (PHXIN(1,1), COMD(706)), 

1 (WACXIN (1,1) , COMD (931 )) , (EIAXIN (1,1) , CCMD(1156)), 

2 (NCNI, COM D (53 1 2) ) , (NPTI(1), COMD(5313)) 

EQUIVALENCE (CNXP(1), COMD(2071)), <PRXP(1,1), COMD(20R6)), 

1 (WACXP(1,1), COMD (2311) ) , (trAXP(1,1), COMD(2536)), 

2 (NCNP, COM D ( 5344) ) , ( N FTP ( 1) , COM D ( 534 5) ) 

EQUIVALENCE (PSIXB(I), COM D (276 1 ) ) , (DELXB(1,1), COM D ( 277 6 ) ) , 

1 ( El AXE (1,1), COMD (300 1 ) ) , (NPS3, COMD(5360)), 

2 (NPTB (1) , COMD (536 1) ) 

EQUIVALENCE (TFFXH(I), COMD(3226)), (CNXH(1,1), COM D ( 3 24 1 ) ) , 

1 (DHTCXH (1, 1) , COM D ( 34 6 6) ) , ( ET A TXH (1,1) , COMD(3691 )), 

2 (NTFFSH, COMD (5376)), (NPTTFH (1) , COMD(537?)) 

EQUIVALENCE (TFFXI(I), COM D (39 1 6) ) , (CNXI(1,1), COMD( 3931 )), 

1 (DHTC XI ( 1 , 1 ) , COMD (4156) ) , ( ETATXI (1,1) , C0KD(4381)), 

2 (NTFFSI, COMD (5 3 92) ) , (NPTTFI(I), COMD(539?)) 

EQUIVALENCE (CNXI(1,1), CS X 1 1(1,1)) , (CNXI(1,15), CN T XI2(1,1)) 

EQUIVALENCE (TFFXL ( 1 ) , COMD ('4 5 0 5 ) ) , (CNXL(1,1), COMD(4621)), 

1 (DHTCXL (1,1), COMD (4346)) , (ETATXL (1,1) , COMD (50V 1 ) ) , 

2 (NTFFSL, COMD (5 408) ) , (NPTTFL ( 1) , COMD(5409)) 

EQUIVALENCE (CNXL(1,1), CNXL1(1,1)), (CNXL(1,15), CNXL2(1,1)) 

DATA NCNF, NPTF / 1 0 , 6 , 3 * 7, 5 * 1 0 , 8 , 5 * 0 / 

DATA CNXF / .3, .4, .5, .5, .7, .3, . Q , 1.0, 1.1, 1.2, 5 * 0.0 / 
DATA PRXF / 

1 10 * 1.0, 5 * 0.0, 1.012, 1.02, 1.0256, 1.0363, 1.064, 1.1, 

2 1.076, 1.044, 1.104, 1.1532, 3 * 0.0, 1.028, 1.04, 1.0512, 1.CP8 

3 1.1184, 1.1b, 1.152, 1.1352, 1.22, 1.312, 5 * 0.C, 1.0384, 

t' 1.0584 , 1 . C 3 , 1.124, 1.14 3 , 1. 2, 1.2192, 1.2208 , 1. 324, 1.4, 

55* 0.0, 1.0443, 1.0752, 1.116, 1.16, 1.184, 1.229, 1.26, 1.2944 

5 1.4, 1.43, 5 * 0.0, 1.049, 1.092, 1.132, 1.18S6, 1.2096, 1.2552, 

7 1.2896, 1.34, 1.448, 1.54, ( * 0.0, 1.1, 1.148, 1.1952, 1.2175, 

3 1.272, 1.3312, 1.4, 1.5, 1.58, 9 * o.Q, 1.224, 1.2864, 1.3616, 

9 1.423, 1.533c, 1.66, 9 * 0.0, 1.244, 1.3024, 1.3912, 1.448, 

1 1.568, 1C * 0.0, 1.2672, 1.332, 1.4, 1.48, 1.584, 81 * 0.0 / 

DATA WACXF / 

1 243.6, 286.8, 333.6, 383.4, 439.3, 495.8, 566.4, 633.6, 700.2, 

2 750.0, 5 * 0.C, 229.8, 270. C, 322.8, 3^6.2, 436.8, 499.8, 566.4, 

3 633.6, 700.2, 750.0, 5 * 0.C, 199.8, 253.2, 310.2, 358.2, 428.4, 

4 493.2, 566.4, 633.6, 700.2, 750.0, 5 * 0.0, 166.8, 233.4, 291.6, 

5 340.2, 420.6, 495.4, 5 C 9.3, 633.0, 700.2, 750.0, 5 * 0.0, 133.2, 

6 209.4, 259.8, 313.2, 406.3, 476.4, 553.2, 625.8, 700.2, 750.0, 

75* 0.0, e6.4, 183.6, 240.0, 276.6, 393.6, 466.8, 544.8, 616.8, 

8 653.4, 750.0, 6 * 0.0, 156.6, 213.6, 266.4, 388.2, 456.6, 528.6, 

9 6C0.0, 693.6, 749.4, 9 * 0.C, 333.4, 448.2, 509.4, 536.8, 683.4, 

1 736.8, 9 * 0.0, 368.4, 433.2, 483.6, 576.6, 666.6, 10 * 0.0, 
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2 342.6, 406.8, 474.0, 553.2, 656.4, 81 * 0.0 / 

DATA ETAXF / 

1 2 * .75592, .75064, .74536, .72512, .68816, .64152, .60016, 

2 .56936, .51744, 5 * 0.0, .7612, 5 * .77616, .72512, 3 * .64152, 

3 5 * 0.0, .76648, .792, .80256, 3 * .82808, .77616, 3 * .72512, 

45* 0.0, .75592, .79728, .82303, 3 * .85448, .82808, 2 * .77616, 

5 .75592, 5 * 0.0, .72512, .80256, .84392, 3 * .88, .35888, .82308 

6 .80256, .7612, 5 * 0.0, .64152, .77616, 2 * .62808, 2 * .90112, 

7 .88, .85988, .60784, . 75064, 5 * 0 .0, .740'08, .77616, . 80784, 

8 .90376, .9108, .90112, .88, .80256, .72512, 9 * 0.0, 2 * .90112, 

9 .88, .85888, .77616, .64152, 9 * 0.0, 2 * .88, 2 * .92808, 

1 .74536, 10 * 0.0, .82808, .8272, .81752, .78672, .72512, 

2 81 * 0.0 / 

DATA NCNI, NPTI / 10, 6 , 3 * 7 , 5 * 1 0 , 8 , 5 * 0 / 

DATA CNXIN / .3, .4, .5, .6, .7, .9, .9, 1.0, 1.1, 1.2, 5 * 0.0 / 
DATA PRXIN / 

1 10 * 1.0, 5 * 0.0, 1.018, 1.03, 1.0384, 1.0552, 1.096, 1.15, 

2 1.114, 1.066, 1.156, 1.2448, 5 * 0.0, 1.042, 1.06, 1.0763, 

3 1.132, 1.1776, 1.24, 1.228, 1.2028, 1.33, 1.468, 5 * 0.0, 1.0576 

4 1.0876, 1.12, 1.186, 1.222, 1.3, 1.3288, 1.3312, 1.486, 1.6, 

5 5 * 0.0, 1.0672, 1.1128, 1.174, 1.24, 1.276, 1.342, 1.39, 1.4416 

6 1.5, 1.72, 5 * 0.0, 1.072, 1.138, 1.198, 1.2844, 1.3144, 1.3826, 

7 1.4344, 1.51, 1.672, 1.81, 6 * 0.0, 1.15, 1.222, 1.2928, 1.3264, 

8 1.408, 1.4968, 1.6, 1.75, 1.87, 9 * 0.0, 1.336, 1.4296, 1.542, 

9 1.642, 1.6004, 1.99, 9 * 0.0, 1.366, 1.4536, 1.5868, 1.672, 

1 1.852, 10 * 0.0, 1.4908, 1.493, 1.6, 1.72, 1.876, 81 * 0.0 / 

DATA WACXIN / 


1 

121.8, 

143.4, 

166.8, 

191. 7, 219.9, 

249. 9, 

283. 2, 316.8, 350.1, 

2 

375.0, 

5*0. 

0, 114. 

9, 135.0, 161. 

4, 188.1 

, 218.4, 249.9, 283. 

3 

316.8, 

350.1 , 

375.0, 

5 * 0.0, 99.9 

, 126.6, 

155.1, 179.1, 214.2 

4 

246.6, 

283.2, 

316.8, 

350. 1, 375.0, 

5 * 0.0 

, 83.4, 116.7, 145.8 

5 

170.1, 

210.3, 

242.7, 

279.9, 316.5, 

350. 1, 

375.0, 5 * 0.0, 66.6 

6 

104.7, 

129.9, 

156.6, 

203.4, 238.2, 

276.6, 

312.9, 350.1, 375.0, 

7 

5*0. 

0, 43.2 

, 91.8, 

120.0, 133.3, 

196.8, 

233.4, 272.4, 308.4, 


8 349.2, 375.0, 6 * 0.0, 73.3, 106.8, 133.2, 194.1, 228.3, 264.3, 

9 300.0, 346.8, 374.7, 9 * 0.0, 191.7, 224.1, 254.7, 293.4, 341.7, 

1 368.4, 9 * 0.0, 184.2, 216.6, 241.8, 288.3, 333.3, 10 * 0.0, 

2 171.3, 203.4, 237.0, 276.6, 328.2, 81 * 0.0 / 

DATA ETAXIN / 

1 2 * .75592, .75064, .74536, .72512, .68816, .64152, .60016, 

2 .56936, .51744, 5 * 0.0, .7612, 5 * .77616, .72512, 3 * .64152, 

3 5 * 0.0, .76648, .792, .90256, 3 * .82808, .76616, 3 * .72512, 

4 5 * 0.0, .75592, .79728, .82808, 3 * .85448, .82808, 2 * .77616, 

5 .75592, 5 * 0.0, .72512, .80256, .84392, 3 * .88, .85888, .82808 

6 .80256, .7612, 5 * 0.0, .64152, .77616, 2 * .82808, 2 * .90112, 

7 .88, .85888, .80784, .75064, 5 * 0.0, .74008, .77616, .80784, 

8 .90376, .9108, .90112, .38, .30256, .72512, 9 * 0.0, 2 * .90112, 

9 .88, .85888, .77616, .64152, 9 * 0.0, 2 * .88, 2 * .32808, 

1 .74536, 10 * 0.0, .82808, .8272, .81752, .78672, .72512, 

2 81 * 0.0 / 

DATA NCNP, NPTP / 10, 2 * 5 , 2 * 8 , 4 * 10 , 2 * 8 , 5 * 0 / 

DATA CNXP / .562, .674, .787, .899, 1.0, 1.034, 1.067, 1.124, 

1 1.236, 1.292, 5 * 0.0 / 

DATA PEXP / 


ABCDO 4 7 3 
A3CD04 7 9 
ABCD0 4 50 
A BCD9 4 8 1 
A BC DO 4 9 2 
AECDC483 
ABCD0484 
ABCD0435 
ABCD0486 
ABCDO 4 3 7 
ABCD0498 
ABCD0489 
ABCOC490 
ABCDC491 
ABCD0492 
ABCD0493 
ABCD0494 
ABCDO 4 9 5 
A3CD0495 
ABCD0497 
A3CD0498 
A8CD0493 
ABCDO 5 0 3 
ABCD0501 
ABCDO 502 
ABCD0593 
A BCD0534 
ABCD0505 
ABCDO505 
ABCD0507 
ABCD0503 
ABCDC50? 
ABCDO 5 1 0 
ABCD051 1 
ABCD051 2 
ABCDO 513 
ABCD0514 
ABCDO 515 
ABC0051 5 
ABCDO c 17 
ABCD05 1 3 
ABCD051 9 
ABCDO 520 
ABCD0521 
ABCDO 522 
ABCDO 523 
ABCDC524 
ABCD0525 
ABCD0526 
ABCD0527 
ABCD0528 
ABCD0529 
ABCD0530 
ABCD0531 
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1 10 * 1.0, 5 * 0.0, 1.84, 1.966, 1.84, 2.008, 2.519, 2.855, 3.261 

2 1.686, 4.353, 3.765, 5 * 0.0, 2.428, 3.093, 2.68, 3.429, 3.982, 

3 4.297, 4.759, 3.849, 7.622, 6.481, 5 * 0.0, 2.869, 3.933, 3.408, 

4 4.605, 5.277, 5.613, 6.117, 5.466, 10.219, 9.176, 5 * 0.0, 3.835 

5 4.689, 4.521, 5.697, 6.488, 6.936, 7.454, 6.866, 11.059, 10.219, 

6 5 * 0.0, 4.549, 5.529, 5.445, 6.614, 7.202, 7.622, 8.308, 8.371, 

7 11.899, 11.479, 7 * 0.0, 6.313, 7.538, 8.0, 8.546, 9.218, 8.966, 

8 13.159, 12.711, 7 * 0.0, 5.523, 7.958, 8.567, 9.134, 9.638, 

9 9.883, 13.656, 14.412, 9 * 0.0, 9.386, 9.925, 10.513, 10.912, 

1 11 * 0.0, 9.596, 10.219, 10.996, 11.815, 82 * 0.0 / 

DATA WACXP / 

1 51.0, 59.3, 70.0, 84.8, 101.7, 103.1, 114.5, 122.9, 139.8, 146.2 

2 5 * 0.0, 50.2, 59.3, 70.0, 84.8, 101.7, 108.1, 114.5, 122.9, 

3 139.8, 146.2, 5 * 0.0, 49.5, 58.3, 70.0, 84.8 ,101.7, 108.1, 

4 114.5, 122.9, 139.8, 146.2, 5 * 0.0, 48.8, 57.9, 69.5, 84.8, 

5 101.7, 108.1, 114.5, 122.9, 139.3, 146.2, 5 * 0.0, 46.7, 56.7, 

5 68.8, 84.0, 101.2, 107.6, 114.5, 122.9, 139.8, 146.2, 5 * 0.0, 

7 44.5, 55.0 , 67.9, 83. 3 , 1 01.0, 107. 1, 1'14.3, 122.9, 139.5, 146.2, 

8 7 * 0.0, 66.4, 81.7, 100.0, 106.7, 113.6, 122.6, 139.3, 146.2, 

9 7 * 0.0, 65.7, 80.5, 99.5, 105.0, 113.3, 122.1, 139.0, 146.2, 
19* 0.0, 98.1, 104.5, 112.6, 121.7, 11 * 0.0, 97.4, 104.0, 112.4, 
2 120.7, 82 * 0.0 / 

DATA ETAXP / 

1 2 * .59082, .58566, .5805, .5719, .57018, .55986, .53922, .47644, 

2 .46612, 5 * 0.0, .62178, 6 * .64242, .57018, .60114, .57018, 

3 5 * 0.0, .64242, .69402, .5837, 4 * .72498, .64242, .72498, 

4 .64242, 5 * 0.0, .65274, 2 * .72498, 4 * .77744, .72498, .77744, 

5 .72498, 5 * 0.0, .67338, .74552, .77744, 4 * .8084, .77744, 

5 .7826, .75078, 5 * 0.0, .64242, .72498, .79292, .32904, 

7 3 * .83936, .8084, .77744, .75078, 7 * 0.0, .77744, .3084, 

8 2 * .86, .84968, .82388, 2 * .72498, 7 * 0.0, .7697, .79292, 

9 4 * .83936, .69918, .64242, 9 * 0.0, 4 * .8084, 11 * 0.0, .80582, 

1 .3041, .79808, .77744, 82 * 0.0 / 

DATA NPSB , NPTB / 15, 15 * 15 / 

DATA PS IX B / 4.91 16, 9.8232, 14. 735, 19.646, 24.558, 29.47, 

1 34.381, 39.293, 44.207, 73.674, 100.0, 200.0, 300.0, 400.0, 

2 500.0 / 

DATA DELXB / 15 * 200.0, 15 * 300.0, 15 * 400.0, 15 * 500.0, 

1 15 * 600.0, 15 * 700.0, 15 * 800.0, 15 * 900.0, 15 ‘ 1000.0, 

2 15 * 1100.0, 15 * 1200.0, 15 * 1300.0, 15 * 1400.0, 15 * 1500.0, 

3 15 * 1600.0 / 


DATA ETAXB/ 

1 .6, .758, .868, .925, .95, .933, 9 * 1.0, .726, .825, .893, .936, 

2 .966, .991, 9 * 1.0, .777, .858, .911, .946, .972, .992, 9 * 1.0, 

3 .806, .875, .925, .955, .977, .994, 9 * 1.0, .826, .888, .935, 

4 .933, .982, .995, 9 * 1.0, .843, .898, .942, .969, .985, .997, 


5 

9 * 

1.0, . 

855, .906 

, .947 

, . 974 , 

. 99, 

.998, 

r 9 * 

1 

.0, 

.865, .912, 

6 

• 951 

, .977 

9 

.992, . 

999 , 9 

* 1.0, 

. 87, 

.914, 

, .953 

1 9 

.978, .993, 

7 

2 * 

.999, 

8 

* 1 .0, 

.87, . 

915, .953, . 

979, , 

.995, 

2 

* 

.999, 

8 

8 * 

1 .0, . 

87 

, .915, 

. 953, 

. 979 , . 

995, 

2 * . 

. 999, 

8 

♦ 

• 

o 

. 

00 

-4 

9 

.915 

, .953 

9 

.979, . 

995, 2 

* .999, 

8 * 

1.0, 

.87, 

• 

915 

, .953, .979 

1 

.995 

, 2 * 

.999, 8 * 

1.0, 

. 87 , .915, . 

953, . 

.979, 

• 

995 

, 2 * .999, 

2 

8 * 

1.0, . 

87 

, .915, 

.953, 

.979, . 

995, 

2 * , 

.999, 

8 

♦ 

1.0 / 

DATA 

NTFFSH 

9 

NPTTFH 

/ 10, 

9 * 15, 

12, 

5*0 

/ 





, ABCD0532 
ABCD0533 
ABCD0534 
, ABCD0535 
ABCD0535 
ABCD0537 
ABCD0538 
ABCD0539 
ABCD0540 
ABCD054 1 
ABCD0542 
, ABCD0543 
ABCD0544 
ABCD054 5 
ABCD0545 
ABCD0547 
ABCD0543 
, ABCD0549 
ABCD0559 
ABCD0551 
, ABCD05S2 
ABCD0553 
ABCD0554 
, ABCD0555 
ABCD0555 
ABCD0557 
ABCD0558 
ABCD0559 
ABCD95S3 
ABCD0561 
ABCD0562 
ABCD056 3 
ABCD055 4 
ABCD056 5 
ABCD0 56 5 
ABCD0567 
ASCD055 3 
ABCD0569 
ABCD0570 
ABCD057 1 
ABCDC572 
ABCD5 57 3 
ABCD057U 
ABCD0575 
ABCD0575 
ABCD0577 
ABCD0573 
ABCD0579 
ABCD0580 
ABCD0581 
ABCD0532 
A3CD0583 
ABCD0584 
ABC0053 5 
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DATA TPFXH / 39.67, 42.99, 47.46, 48.61, 49.175, 49.6, 50.0, 

1 50.425, 50.92, 51.575, 5 * 0.0 / 

DATA CNXH / 

1 10 * .1872, 5 * 0.0, .3372, .3942, .4362, .255, .3, .3568, .4314 

2 .4834, .3372, .2814, 5 * 0.0, .5156, .5814, .6568, .4784, .5254, 

3 .6196, .6844, .7314, .5344, .3304, 5* 0.0, 2 * .7128, .8726, 

4 .6942, .75, .8628, .9568, .8814, .6754, .4686, 5 * 0.0, .9382, 

5 .8442, 1.0696, .9148, .9754, 1.0932, 1.2010, 1.0226, .8069, 

6 .5628, 5 * 0.0, 1.1442, .9804, 1.2382, 1.1442, 1.2754, 1. 2852, 

7 1.3834, 1.1442, .9196, .6382, 5 * 0.0, 1.3138, 1.1068, 1.4638, 

8 1.3882, 1.4824, 1.501, 1.5108, 1.2804, 1.0128, .6892, 5 * 0.0, 

9 1.5382, 1.2754, 1.6882, 1.5618, 1.7638, 1.6882, 1.6186, 1.3696, 

1 1.1254, .7362, 5 * 0.0, 1.7264, 1.445, 1.9696, 1.801, 2.045, 

2 1.9138, 1.745, 1.4638, 1.2196, .7696, 5 * 0.0, 1.9324, 1.7068, 

3 2.2138, 1.9794, 2.3362, 2.1246, 1.8618, 1.595, 1.3138, .8068, 

4 5 * 0.0, 2.15, 1.9696, 2.552, 2.2794, 2.645, 2.2706, 1.9558, 

5 1.6746, 1.3696, .8254, 5 * 0.0, 2.4058, 2.2706, 2.805, 2.5138, 

6 2.8706, 2.4226, 2.0, 1.745, 1.4068, .8304, 5 * 0.0, 2.5892, 

7 2.697, 3.0392, 2.8334, 3.0764, 2.495, 2.045, 1.801, 1.445, 

8 6 * 0.0, 2.7862, 3.096, 3.2648, 3.1422, 3.152, 2.5372, 2.0824, 

9 1.8156, 1.4638, 6 * 0.0, 2.945, 3 * 3.3774, 3.1618, 2.5558, 

1 2.101, 1.8196, 1.4676, 6 * 0.0 / 

DATA DHTCXH / 

1 .0032, .0038, .0046, .0052, .0056, .0068, .008, .0083, .0093, 

2 .0132, 5 * 0.0, .0057, .008, .01, .0068, .0088, .012, .0164, 

3 .0196, .0159, .018, 5 * 0.0, .0084, .01 13, .0144, .012, . 014«*, 

4 .0192, .0236, .0272, .0232, .3223, 5 * 0.0, .0108, .0136, .0184, 

5 .0164, .0192, .0252, .0308, .0316, .0284, .0268, 5 * 0.0, .0133, 

6 .0156, .0216, .0204, .0236, .03, .0372, .0356, .033, .0314, 

75* 0.0, .0152, .0176, .024, .0244, .0288, .034, .0416, .0392, 

3 .0368, .0352, 5 * 0.0, .0164, .0192, .0268, .028, .0321, .0394, 

9 .0448, .0432, .04, .038, 5 * 3.0, .0174, .0212, .0292, .0304, 

1 .036, .0421, .0476, .046, .0442, .0412, 5 * 0.0, .0179, .0228, 

2 .0316, .0336, .04, .0472, .051, .0488, .043, .044, 5 * 0.0, 

3 .0176, .0248, .0331, .0356, .0444, .0524, .0544, .0528, .0524, 

4 .0476, 5 * 0.0, .0167, .026, .3344, .0388, .0496, .0564, .0576, 

5 .056, .0556, .0504, 5 * 0.0, .0144, .0261, .0346, .0412, .054, 

6 .0612, .06, .0596, .058, .053, 5 * 0.0, .012, .0241, .034, .0441 

7 .0596, .064, .0624, .064, .0612, 6 * 0.0, .0082, .0188, .0324, 

8 .0472, .064, .0668, .066, .0654, .064, 6 * 0.0, .0034, .0128, 

9 .0312, .0494, .0661, .0698, .07, .0693, .0668, 5 * 0.0 / 

DATA ETATXH / 

1 .6219, .6068, .5764, .5643, .5562, .5309, .5062, .5051, .4909, 

2 .4257, 5 * 0.0, 3 * .7078, 5 * .6068, .538, .4747, 5 * 0.0, 

3 .7868, 2 * .809, 5 * .7073, .5053, .5056, 5 * 0.0, .809, .8292, 

4 .8494, 4 * .809, .7665, .6573, .5359, 5 * 0.0, .809, .8353, 

5 .8543, 4 * .8494, .809, .7073, .5683, 5 * 0.0, .7963, .8393, 

6 .3515, .8596, 3 * .8697, .8292, .7463, .5941, 5 * 0.0, .7779, 

7 .8368, .8494, .8596, .8655, .3319, .8797, .8494, .7776, .6068, 

8 5 * 0.0, .7422, .8302, .8409, .8575, .8662, 2 * .3899, .9596, 

9 .809, .6178, 5 * 0.0, .7078, .9254, .8262, .8535, .8615, .894, 

1 .8954, .8697, .8191, .624, 5 * 0.0, .7635, 2 * .809, .8494, 

2 .8555, .8969, .9, .8808, .8302, .531, 5 * 0.0, .6063, .7696, 

3 .7579, .8363, .852, .8975, .901, .8848, .6347, .6265, 5 * 0.C, 


ABCDC586 
A3CD0597 
ABCD0583 
ABCD0 C 8 9 
ABCD0590 
ABCD0591 
ABCD0592 
ABCD059 3 
ABCD0594 
ABCD0595 
ABCD0595 
A3CD0597 
AECDC598 
ABCD0599 
A BCD06 00 
ABCD0 P 0 1 
ABCD0602 
ABC DO 5 0 3 
ABCD0604 
ABCD0C05 
ABCD060S 
ABC DO 5 07 
A3CD06Q3 
ABCD0609 
ABC DO 6 1 0 
ABCDDE 1 1 
ARCD0M2 
ABCD0613 
ABCDO* I'J 

ABC DOC 1 5 
A9CD06 15 
ABCD9C 1 7 
ABCD06 1 3 
ABCD061 9 
ABCD0620 
A BC DO 62 1 
A3CD0622 
ABCD0623 
ABCD0624 
ABCD0625 
ABCDOf 25 
ASCD0627 
ABCD062B 
ABCD0629 
A BCD 063 0 

Asc^oeai 

ABCD0632 
ABCDO 6 3 3 
A BCD 0 6 3 4 
ABCDO 6 3 5 
ABCD0636 
ABCD0537 
ABCD0633 
A3CD0639 
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nil i linn mu 


4 

.5309, 

2 * * 7078, .8262 

, .8494, .8976 

, .9, .8848, .9363, 

.6118, 

5 

5*0. 

0, *4773, .6068, 

.5652, .309, . 

8494, .8968, .998, . 

8788, 

6 

.8322, 

6 * 0.0, .4045, 

.5056, .6068, 

.7797, .8532, .8937, 

.8925, 

7 

.8697, 

.8241, 6 * 0.0, 

.3034, .4197, 

.5865, .7584, .857, 

. 8896, 

8 

.8793, 

.859, .809, 6 * 

0.0 / 




DATA NTFFSI, NPTTFI / 11 

, 9 * 15, 12, 

9, 4 * 0 / 



DATA TFFXI / 70.776, 82.236, 93.468, 103.464, 112.839, 116.58, 

1 120.0, 122.676, 125.124, 127.324, 130.536, 4 * 0.0 / 

DATA CNXI1 / 

1 11 * .3522, 4 * 0.0, .5134, .5278, .5654, .4052, .4344, .5896, 

2 .7392, .5808, .5276, .4574, .4226, 4 * 0.0, .7044, .7575, .8279, 

3 .6514, .7044, .8008, .9689, .7575, .634, .6167, .5278, 4 * 0.0, 

4 .933, 1.0208, 1.0296, .8452, .933, 1.0567, 1.2109, .933, .7922, 

5 .7218, .6167, 4 * 0.0, 1.1618, 1.2322, 1.1975, 1.0567,2 * 1.2322 

6 1.4089, 1.1801, .9689, .3279, .7044, 4 * 0.0, 1.3556, 1.3818, 

7 1.373, 1.2322, 1.4967, 1.4619, 1.6056, 1.3915, 1.1183, .933, 

8 .7922, 4 * 0.0, 1.5497, 1.6201, 1.5497, 1.4434, 1.6548, 1.6722, 

9 1.7609, 1.5671, 1.1801, 1.0567, .8452, 4 * 0.0, 1.6905, 1.813, 

1 1.7609, 1.6722, 1.8834, 1.866, 1.9367, 1.7609, 1.3209, 1.1493, 

2 .8983, 4 * 0.0, 1.9367, 1.9723, 1.9367, 1.954, 2.0071, 2.1171, 

3 2.0948, 1.866, 1.4619, 1.2148, .9293, 4 * 0.0, 2.1835, 2.1305, 

4 2.1479, 2.1131, 2.1652, 2.3245, 2.2, 1.9897, 1.5497, 1.2505, 

5 5 * 0.0, 2.3593, 2.2715, 2.3245, 2.2715, 2.3274, 2.5357, 2.2889, 

6 2.0601, 1.6722, 1.2784, 5 * 0.0, 2.5001, 2.5089, 2.4827, 2.4915, 

7 2.5531, 2.7375, 2.3949, 2.1131, 1.7609, 1.2824, 5 * 0.0, 2.6941, 

8 2.7471, 2.6583, 2.7471, 2.8175, 3. 0019, 2.4471, 2.1652, 1.813, 

9 6 * 0.0, 2.8175, 2 * 2.9227, 2.9931, 3.0461, 3.1167, 2.5001, 

1 2.2009, 1.8315, 6 * 0.0 / 

DATA CNXI2 / 

1 6 * 3.1698, 2.5175, 2.2049, 1.9401, 6 * 0.0/ 


1 

2 

3 

4 

5 

6 

7 

8 
9 
1 
2 

3 

4 

5 

6 

7 

8 
9 
1 


DATA DHTCXI / 

.0016, .0023, .0027, .0029, .0031, .0034, .0038, .0042, .0047, 

.0054, .0061, 4 * 0.0, .0023, .0035, .0045, .0034, .0043, .0057, 
.0078, .0069, .007, .0069, .0075, 4 * 0.0, .0031, .0047, .0063, 

.0054, .0062, .0076, .0101, .009, .0084, .0092, .0093, 4 * 0.0, 

.0038, .0061, .0076, .0069, .0081, .01, .0124, .0109, .0104, 
.0107, .0108, 4 * 0.0, .0045, .007, .0087, .0084, .0105, .0114, 
.0142, .0135, .0124, .0123, .0124, 4 * 0.0, .0049, .0076, .0098, 
.0097, .0124, .0134, .0159, .0155, .0141, .0138, .014, 4 * 0.0, 

.0052, .0084, .0107, .0111, .0136, .015, .0173, .0177, .0148, 

.0159, .0151, 4 * 0.0, .0054, .0039, .0118, .0124, .0152, .0165, 
.019, .0199, .0166, .0177, .0164, 4 * 0.0, .0055, .0092, .0126, 

.014, .0159, .0184, .0207, .0213, .0184, .0191, .0177, 4 * 0.0, 

.0054, .0094, .0134, .0146, .0169, .0199, .022, .023, .0196, 
.0202, 5 * 0.0, .0051, .0095, .0139, .0153, .0178, .0214, .0233, 
.0241, 2 * .0214, 5 * 0.0, .0047, .0093, .0142, .0161, .0189, 

.0228, .025, .0251, .0232, .0221, 5 * 0.0, .0038, .0089, .0146, 
.0168, .0199, .0251, .0261, .0263, .0245, 6 * 0.0, .0031, .0083, 
.0147, .0172, .0207, .0267, 2 * .0276, .0255, 6 * C.0, .0001, 

.0068, .0145, .0173, .021, .028, .029, .0283, .0267, 6 * 0.0 / 


DATA ETATXI / 

1 .712, 2 * .8, .7995, .775, .76, .731, 

2 4 * 0.0, .73, .81, .83, 4 * .3, .745, 

3 .7472, .82, .86, .84, .848, .345, .83, 


71, .678, .638, .6, 

7, .655, .6, 4 * 0.0, 
.768, .7125, .67, .612, 


ABCDC64 0 
ABCD0641 
ABCD0642 
ABCD064 3 
AECD0644 
ABCD064 5 
ABCD0645 
ABCD06IP 
ABC DO 5 4 3 
ABCD064 9 
ABCD0650 
ABCD065 1 
ABCD0652 
, ABCD0653 
ABC DO 6 5 4 
ABCD0655 
ABCD0656 
ABCD0657 
ABCD0653 
ABCD0659 
ABCD0660 
ABCD0661 
ABCD0652 
A3CD0663 
ABCD0654 
ABCD0665 
ABCDC655 
ABCD066 7 
A3CD065 3 
A3CD0669 
ABCD0670 
A3CD0671 
ABCD0672 
ABCD0673 
A3CD0674 
ABCD0675 
ABCD0675 
ABCD06 7 7 
ABCD0673 
A3CD0679 
ABCD0680 
ABCD069 1 
ABCD0682 
ABCD0693 
ABCD0684 
ABCD0695 
ABCD0685 
ABCD0687 
ABCD0688 
ABCD0639 
ABCD0690 
ABCD069 1 
ABCD0692 
ABCD0693 
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4 4 * 0.0, .73, . 83, . 863, 4 * . 86, .8, . 735, . 685, .6 17, 4 * 0.0, 

5 .714, .33, .867, .868, .975, .873, .875, .838, .769, .7, .621, 

6 4 * 0.0, .7, .829, .87, .873, 3 * .89, .86, .8, .711, .6258, 

7 4 * 0.0, .685, .81, .872, .88, .8912, .895, .893, .8712, .806, 

8 .718, .625, 4 * 0.0, .673, .8, .872, .883, .894, .9, .8975, .876 

9 .8225, .718, .623, 4 * 0.0, .6452, .785, .87, .8835, .8955, 

1 .9005, .8999, .88, .8395, .717, .6009, 4 * 0.0, .62, .76, .867, 

2 .883, .897, -901, .9, .8775, .945, .714, 5 * 0.0, .6, .745, .86, 

3 .88, .8961, *9004, .898, .876, .847, .7, 5 * 0.0, .575, .7, .85, 

4 .874, .89, .9, .8937, .8722, .3445, .689, 5 * 0.0, .531, .68, 

5 .03, .86, .879, 2 * .89, .866, .833, 6 * 0.0, .5, .645, .8, .835 

6 .8671, .88, .8799, .86, .3235, 6 * 0.0, .385, .59, .76, .82, .86 

7 .8735, .871, .848, .808, 6 * 0.0 / 

DATA NTFFSL, NPTTFL / 11, 9 * 15, 12, 9, 4 * 0 / 

DATA TFFXL / 88.47, 102.795, 116.835, 129.33, 141.045, 145.725, 

1 150.0, 153.345, 156.405, 159.78, 163.17, 4 * 0.0 / 

DATA CNXL1 / 

1 11 * .3682, 4 * 0.0, .5335, .5519, .5911, .4237, .5065, .6164, 

2 .7728, .6072, .5518, .4732, .4419, 4 * 0.0, .7365, .7919, .8655, 

3 .681, .7365, .8372, 1.0129, .7919, .6629, .6447, .5518, 4 * 0.0, 

4 .9754, 1.0672, 1.0764, .3837, .9754, 1.1047, 1.2659, .9754, 

5 .8282, .7546, .6447, 4 * 0.0, 1.2146, 1.2882, 1.2519, 1.1047, 

6 2 * 1.2882, 1.4729, 1.2337, 1.0129, .8655, .7365, 4 * 0.0, 


7 

1.4173, 

1.4446, 

1.4354, 

1. 2882, 

1.5647, 1.5283, 1.6785, 1.4543, 

8 

1.1691, 

.9754, 

.8282, 4 

* 0.0, 

1.5201, 1.6937, 1.6201, 1.509, 

9 

1.7301, 

1.7482, 

1.8409, 

1. 6383, 

1.2337, 1.1047, .8837, 4 * 0.0, 

1 

1.7673, 

1.8954, 

1.8409 , 

1.7482 , 

1.969, 1.9509, 2.0247, 1.3409, 

2 

1.3809, 

1.2015, 

.9391 , 

4 * 0.0, 

2.0247, 2.0619, 2.0247, 2.0429, 

3 

2.0983, 

2.2133, 

2. 1901 , 

1 . 9509, 

1.5283, 1. 2701, . 9715, 4 * 0.0, 

4 

2.2827, 

2.2273, 

2.2455, 

2. 2091 , 

2.2637, 2.4302, 2.3, 2.0901, 

5 

1.6201, 

1.3073, 

5 * 0.0 

, 2.4655 

, 2.3747, 2.4302, 2. 3747, 2.4332, 

6 

2.651, 

2. 3929, 

2.1537, 

1.7482, 

1.3365, 5 * 0.0, 2.6137, 2.6229, 

7 

2.5956, 

2.6047, 

2.6691 , 

2.8619, 

2.5038, 2.2091, 1.8409, 1.3407, 

8 

5 * 0.0 

, 2.8166 

, 2.872, 

2.7791 , 

2.872, 2.9456, 3.1394, 2.5583, 

9 

2.2637, 

1.8954, 

6 * 0.0 

, 2.9456 

, 2 * 3.0555, 3.1291, 3.1846, 

1 

3. 2584, 

2.6137, 

2.3009, 

1. 9147, 

6 * 0.0 / 


DATA CNXL2 / 

1 6 * 3.3138, 2.6319, 2.3051, 1.9237, 6 * 0.0 / 


1 

2 

3 

4 

5 

6 

7 

8 
9 
1 
2 

3 

4 

5 

6 


DATA DHTCXL / 

.0018, .0026, .0031, .0033, 
.0061, .0069, 4 * 0.0, .0026 

.0089, .0078, .008, .0073, . 
.0061, .0071, .0007, .0115, 

.0044, .0069, .0087, .0073, 
.0122, .0123, 4 * 0.0, .0051 
.0162, .0153, .0141, .0139, 
.011, .0141, .0152, .0181, . 
.0059, .0096, .0122, .0126, 
.0181, .0172, 4 * 0.0, .0061 
.0216, .0226, .0188, .0201, 
.0159, .0181, .0209, .0235, 
.0061, .0107, .0152, .0156, 
.023, 5 * 0.0, .0057, .0108, 
.0274, 2 * .0244, 5 * 0.0, . 


.0036, .0038, .0044, .0048, .0054, 

, .0039, .0051, .0038, .0049, .0064 
0336, 4 * 0.0, .0035, .0054, .0071, 
.0102, .0096, .0104, .0106, 4 * 0.0 

.0092, .0113, .0141, .0124, .0119, 

, .008, .0099, .0096, .0119, .013, 
.0141, 4 * 0.0, .0056, .0087, .0111 
0177, .016, .0157, .0159, 4 ♦ 0.0, 
.0155, .0171, .0197, .0201, .0169, 

, .0101, .0134, .0141, .0172, .0187 
.0185, 4 * 0.0, .0062, .0104, .0143 
.0242, .0209, .0217, .0201, 4 * 0.0 
.0192, .0226, .025, .0261, .0223, 
.0157, .0174, .0202, .0244, .0265, 
0053, .0106, .0162, .0183, .0214, 




ABCD0694 
ABCDC695 
ABCD0635 
ABCD0697 
ABCD0593 
ABCD0699 
ABCD073B 
ABCDC701 
ABCD0702 
ABC00703 
ABCD0704 
ABCD0705 
A3CD0705 
ABCD0707 
ABCD0703 
ABCD0709 
ABCD0710 
ABCD071 1 
ABCD071 2 
ABCD!) 7 1 3 
ABCD0714 
ABCD0715 
A8CD0715 
ABCD07 1 7 
ABCD0713 
ABCD07 1 9 
ABCD0720 
ABCD0721 
ABCD0722 
ABCD0723 
ABCD0724 
ABCD0725 
ABCD0725 
ABCD0727 
ABCD0728 
ABCD0729 
ABCD0730 
ABCD0731 
ABCD0732 
ABCD0733 
ABCD0734 
ABCD0735 
ABCD0735 
ABCD0737 
ABCD0733 
ABCD0739 
ABCD0740 
ABCD0741 
ABCD0742 
ABCD074 3 
ABCD0744 
ABCD0745 
ABCD074S 
ABCD074 7 


53 


Hlllli 


7 .0259, .0284, .0285, .0263, .0251, 5 * 0.0, .0044, .0101, .0166, AECD0743 

8 .0191, .0266, .0286, .0296, .0299, .0279, 6 * 0.0, .0035, .0094, ABCD0749 

9 .0167, .0195, .0235, .0303, 2 * .0314, .0289, 6 * 0.0, .0001, ABCD0750 

1 .0077, .0164, .0197, .0239, .0319, .0329, .0321, .0303, 5 * 0.0 /APCD0751 

DATA ETATXL / ABCD0752 

1 .712, 2 * .8, .7995, .775, .75, .731, .71, .678, .639, .6, ABC00753 

2 4 * 0.0, .73, .81, .83, 4 * .3, .745, .7, .655, .6, 4 * 0.0, ABCD0754 

3 .7472, .82, .86, .84, .848, .845, .83, .768, .7125, .67, .512, ABCD0755 
44* 0.0, .73, .83, .863, 4 * .35, .8, .735, .685, .617, 4 * 0.0, ABCD0755 

5 .714, .83, .867, .868, .875, .873, .875, .833, .769, .7, .521, ABCO0757 

6 4 * 0.0, .7, .829, .87, .373, 3 * .89, .86, .8, .711, .6258, ABCD075P 

7 4 * 0.0, .685, .81, .872, .88, .8912, .895, .893, .8712, .306, ABCD0759 

8 .71 8, . 625, 4 * 0.0, . 673, . 8, . 872, . 883, . 894, . 9, .8°75, . P“8, A3CDC76 0 

9 .8225, .718, .623, 4 * 0.0, .6452, .735, .87, .9935, .8955, ARCD07S1 

1 .9005, .8999, .88, .8395, .717, .5009, 4 * 0.0, .52, .76, ,«67, ABCD0762 


2 .883, .897, .901, .9, . 

8775, . 

845, . 

714, 

5 * 

0.0, 

.6, • 

74 5, 

.86, 

ABCD0753 

3 .88, .8961, .9004, .898 

, . 875 , 

. 847 , 

■•7, 

5 * 

0.0, 

. 575, 

• 7, 

p p 

• r 

ABCD0764 

4 .874, .89, .9, .8937, . 

8722, „ 

8445, 

.689 

, 5 * 

o.e. 

.531 

. .53 

> 

ABCD0755 

5 .83, . 86, .379, 2 * .89 

, . 866, 

. 83 3 , 

6 * 

o 

o 

• % 

• *45, 

• P, 

.8?S 

A3CD0765 

6 .8671, .88, .8799, .86, 

. 8235, 

6*0 

.0, 

.385, 


.76, 

.82, 

. 86 , 

ABCD07 e 7 


7 .8735, .871, .848, .808, 5 
END 


0.0 / 


A BCD o 76 3 
A3CD0759 


Subroutine COAFBN 


SUBROUTINE COAFBN A3CDC770 

IMPLICIT REAL*8 (A-H,0-7.) ABC0077 1 

LOGICAL SI ABCD0R72 

COMMON /COMALL/ COM (1062) ABCDC773 

DIMENSION WORD (2) ABCD0174 

DIMENSION Q (9) , AWOBD(2) APCD7773 

EQUIVALENCE (WORD(1), COM ( 1 ) ) , (IDES, COM(3)), (IGA3MX, 0 OM ( 1 0 ) ) , A BCD 0 7 ? 

1 (IAFTBN, COM (12)), (TO L ALL , COM ( 23 ) ) , (WS24, COM (321)), { F A p 24 , A3CDC"77 

2 COM (322)), (WG55, COM (323)), (FAR35, Cni (324) ) , ( P 6 P 3 A V , ALCD0773 

3 COM (325) ) , (AM6DSV, COM(326)), ( A M6 , COM (327) ) , (A6, COM(326)), A3COC779 

4 (WG6CDS, COM (329) ) , ( WG6, COM(330)), (Tc, COM(331)), A3CDC' 7 3:' 

5 (P6, COM ( 332 ) ) , (H6 , COM(333)), (WG7, COM(33U)), A d CDC781 

6 (FAR7, COM (335)), (FAR^SV, COM (336)), ( TS7 , COM (337)), A5CDC*»P2 

7 (PS7, COM (338) ) , (V7, COM( 339)), ( A M 7 , COM(3t'C)), (A7, COM ( 3 U 1 ) ) ,ABCD0783 

8 (T7DS, COM (342)), (T7, COM (343)), ( H7 , COM (344)), (37, COM ( 34 c ) ) , A BCD0 7 4 4 

9 (ETAADS, COM (366)), (DPAFDS, COM (367)), ( W F A , COM (363)), AECDC735 

1 (FTA A , COM (369)), (ETAASV, COM (370)), (DPAFT, COM (371)), ABCD0785 

2 (P7, COM (389)), (U7 , COM (390)), (V AFT5N, CO* (402)), ABCD0787 

3 (ICOAFB, COM ( 1045) ) , (SI, COM( 1055)) ABCD0799 

DATA AWORD /4HCOAF, 4 HEN / A8CD0799 

WORD ( 1 ) = AWORD ( 1) ABCD0790 

WORD (2) = AWORD (2) ABCD0791 

Q (2) = 0.0D0 ABCD0792 

Q (3) = O.ODC ABCD0793 

IF (SI) GO TO 100 ABCD0794 

AJ = 778.26D0 ABCDC795 

AJX = 2.719D0 A3CD0795 

CAPSF = 2116.217 0D0 A3CD0797 

G = 32. 174049D0 A3CD0733 
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PRATM = 14.696D0 
TDEL = 2000. 0D0 
T7MAX = 400C.0D0 
RA = . 0252D0 
GO TO 101 

100 AJ = 1.0D0 
A JX = 1;0D0 
CAPSF = 101325. ODO 
G = 1 . ODO 

PRATM = 14.696DC / 101324. 6D0 
TDEL = 1111. ODO 
T7MAX = 2222. ODO 
RA = 286. 9D0 

101 GAJ2 = 2. ODO* G * AJ 
ICOAFB = 0 

C*** P6DS AND AM6DS ARE SET FOR GENERALIZATION OF* AFTERBURNER 
C* ** EFFICIENCY MAP GENERALIZATION 
IF (IDES .NE. 1) GO TO 13 2 
P6DS = P6 * PRATM 
AM6DS = AM6 

102 WF6 = FAR55 * WG55 / (FAR55 + 1 .ODO) 

IF (IGASMX .GT. 0) WF6 = KFf + F A ? 2 4 * WG2« / (FA&24 + 1.0DC) 
WA6 = WG6 - WF6 
C *** DRY LOSS 

WGoC = WG6 * DSQRT (T6 ) / P6 

IF (IDES . SQ. 1) WG6CDS = WG6C 
DPAFT = DPAFDS * (WG6C / WG6CDS ) 

IF (DPAFT .GT. 1.0D0) DPAFT = I.^DO 
P7 = P6 * ( 1 . 0 DO - DPAFT) 

A 7 = A 6 

FAR6 = WF6 / WA6 

CALL PFOCOM ( F AR6 , T6 , XX 1 ,X X 2 , XX 3 , XX4 , P 'II 6 , X X6 ) 

WQA = WG6 / A 7 

Cl = P7 * DSQRT (G / (T6 * AJ) ) * CAPSF 

AM7 = AMb 

TS7 = 0.875DO * T6 

1 DO 2 1=1,50 

CALL PROCOM ( FAR 6 , TS7 , C S 7, A K7, 3 P7 , 3 F X7 , PHI S7 , H R7 ) 

V7 = AM7 * CS7 

HSCAL = H6 - V7 ** 2 / GAJ2 

DELHS = HSCAL - HS7 

IF (DABS (DELHS) .LE. .5D0 * TOLALI. * HSCAL) GO TO 3 

2 TS7 = TS7 + DELHS / CP7 
ICOAFB = 1 

GO TO 14 

3 WQAT = Cl * DSQRT (AK7 / REX7) * AM7 / (1.0D0 + (AK7 - 1.0D0) * 

1 AM7 ** 2 / 2. ODO) ** ( (AK 7 + 1.0D0) / (2. ODO * ( AK7 - 1 . D DO) ) ) 

DIR = WQA / WQAT 

EW = (WQA - WQAT) / WQA 

CALL AFQUIR (Q(1),AM7,EW,0.0D0,40.0D0,1 . ODO+TOLALL , DI R , AM7 T, TGO) 

ICOAFB = 2 

GO TO (4,5, 14) , IGO 

4 AM7 = AM7T 

IF ( AM7 .LE. 0. ODO) AM7 = 1.0D-10 


ABCD079? 

A BCD 080 0 

ABCD0R01 

ABCD0802 

ABCD0803 

ABCD0804 

ABCD0805 

A.BCD0806 

ABCD0837 

ABCD0808 

ABCD0803 

A BCD 08 1 0 

ABCDOP 1 1 

A3CD0812 

ABCD0813 

ABCD081U 

A3CD081 5 

ABC D 0 816 

ABCD0R1 7 

ABCD0813 

ABCD081 9 

ABCD0920 

ABCD0821 

ABCD0R22 

ABCD3P23 

ABCD0824 

AECD0825 

ABCD0826 

A3CD0827 

APCD0928 

AECD0P23 

ABCD0P30 

ABCDOP 31 

AOCDDC 32 

A3CD0C? 3 

A BCD'' q 3 

ABCDC°30 

A3CD0835 

ABCDOP 3 7 

A PCD O’ 5 ’P 

A3CD083? 

ABCDC8!. 0 

A RCD^R 4 1 

ABCDOR42 

A ECHO R 4 3 

ABCD0844 

ABCD fl 845 

A3CD0845 

A BCD 0 n 4 7 

A ECD0843 

ABCD084 ? 

ABCD0350 

ABCD0851 

AECD0652 
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■ ■mill 


IF (AM7 .GE. 1.0D0) AM7 = 0.9D0 
GO TO 1 

5 PS7 = P7 / DEXP ( (PHI6 - PHIS7) / FEX7) 

IF (IAFTBN .GT. 0) GO TO 7 
*** NON-A FT EH BURNING 
T7 = T6 
H FA = 0.0D0 
FAR7 = FAS6 
WG7 = WG6 

IF (IDES .NE. 1 -OR. T7DS . EQ. 3-0d0) GO TO 2C 
*** AFTERBURNING 

IF (IAFTBN -EQ. 2) T7 = T6 + T DEL 
IF (IDES .EQ. 1) T7 = T7DS 
IF (T7 .LE. T6 ) GO TO 6 

RH065 = CAPSF * PS7 / (AJ * PEX7 * TS7) 

PS6 5 = PS7 
V65 = V7 
Q (2) = 0.0D0 
Q (3) = 0.0D0 

8 IF (T7 .GT. T7MAX) T7 = T7MAX 

IF (T7 .LT. T6 ) T7 = T6 * 1.031D0 

IF (SI) T7 = T7 * 9.0DO / 5. ODO 

HV = (((((( " . 45943 1 7D-19 * T7) - . 20 34 1 16 D- 1 5) * T7 + 

1 . 278 364 3D- 1 1 ) * T7 + . 205 1 50 1 D-07) * T7 - . 24531 16D-03) * T7 - 

2 . 9433296D-0 1 ) * T7 + . 1845537D + 05 
IF (.NOT. SI) GO TO 103 

T7 = T7 * 5 . 0 DO / 9.0D0 
HV = HV * 2325. 4295D0 

103 CALL THERMO ( P7 , HA, T7 , X X 1, X X2 , 1 , F AS 6 , 0) 

C*** TO ALTER DESIGN ABET AA MAP FROM GENERAL TO SPECIFIC MAP 
IF (IDES .NE. 1) GO TO 9 
FAR7DS = (HA - H6) / (HV * ETAADS) 

CALL ETAAB (0 . ODO , 0. ODO , 0. 0 DO , 0 . 0D0 , ET A ADS, ET AAS V r P6 DS , P6D S A V, 

1 AM6DS, AM6DSV, IDES, FAR7DS, PAR7SV) 

T7 = T6 
GO TO 20 

9 P6GS = P6 * PRATM 

FAR7GS = (HA - H6) / (HV * ETAADS) 

DO 10 II = 1 ,50 

CALL ETAAB (FAR7GS, AM 6 , P6GS , ETA A , ETAADS , ETA AS V, P6DS , P6DSAV , AM6DS, 
1 AM6DSV,IDES,FAR7DS,FAR7SV) 

FAR7 = (HA - H6) / (HV * El AA) 

DELFA7 = DABS ( FAR7 - FAR7GS) 

IF (DELFA7 .LE. 1.0D0 * TOLALL * FAR7) GO TO 11 

10 FAR7GS = FAR7 

11 IF (FAR7 .GT. 0.0D0) GO TO 12 
ICOAFB = 3 

CALL ERROR 

12 WFAX = FAR7 * WG6 

IF (IAFTBN .EQ. 1) GO TO 15 
ERR W = (SfFA - WFAX) / WFA 
DIR = DSQRT (WFA / WFAX) 

CALL AFQUIR (Q(1) ,T7 ,ERRW,3. 0D3, 30. ODO, .5D0*TOLALL,DIR,T7T, IGO) 
ICOAFB = 4 


A3CD0853 

ABCD085U 

AECD0855 

ABCD0856 

ABCD0657 

ABCD0P5 8 

ABCD0P59 

ABCD086 0 

ABCD086 1 

ABCD0862 

ABCD0863 

A3CD0864 

ABCD085 5 

A3CD086 5 

ABCD086 7 

ABCD0863 

ABCD086 9 

A BCD08 7 o 

ABCD087 1 

ABCD0B72 

ABCD0873 

ABCD0874 

ABCD3875 

A3CD0875 

ABCD0877 

ABCD0878 

ABCD0879 

A3CD088 0 

ABCD088 1 

ABCD0332 

ABCD0883 

ABCD0884 

ABCD0885 

A3CD0885 

A3CD0887 

ABCD0888 

ABCD0839 

A3CD089 3 

ABCD089 1 

ABCD0892 

ABCD08 9 3 

A3CD0894 

ABCD0895 

ABCD0896 

ABCD0897 

A3CD089 3 

ABCD0899 

ABCD0930 

ABCD0901 

ABCD0902 

ABCD0903 

ABCD0934 

ABCD0905 

ABCD0905 
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GO TO (13, 16, 14) , IGO 


ABCDO 9 0 7 

13 

T7 = T7T 


A3CD090S 


GO TO 8 


ABCD0909 

14 

CALL ERROR 


ABCDO 910 

15 

UFA = W FAX 


ABCDO 911 

1 6 

FAR7 = (WF6 ♦ WF A) / WA6 


A3CD0912 


WG7 = HG6 + WFA 


ABCDO 9 1 3 

c *** 

MOMENTUM LOSS 


A3CD0°1 4 


CALL PROCOM ( F AR7, T7 , XX 1 , X X 2, XX 3 , R S X7 , PHI7 , H7) 


ABCD09 1 5 


RH07 = CAPSF * P7 / (AJ * REX7 * T7) 


A3CD0916 


V7 = MG7 / (RH07 * A7) 


ABCDO 9 1 7 


Q(2) = 0.0D0 


ABCDO 913 


Q (3) = 0.0D0 


ABCDO 919 


PS7 = PS65 - 0.01D0 


ABCDO 920 

17 

RH07 = WG7 / ( V7 * A7) 


ABCD092 1 


HS7 = H7 - V7 ** 2 / GAJ2 


ABCDO 9 2 2 


CALL THERMO ( 1 . 0D0 , HS7 , TS7 , PHIS 7 , XX2 , 1 , F AR7 , 1 ) 


ABCD0923 


IF (TS7 .GE. 301. 0D0) GO TO 13 


ABCD092U 


CALL THE FMO ( 1 . ODO , HS 7, 400. OD 0, PHI S 7 , XX2, 1 , FAR? , 0 ) 


ABCD0 Q 25 


V7 = DSQRT (GA J2 * (H7 - HS 7 ) ) 


A3CDG925 


GO TO 17 


ABCDO 92 7 

18 

PS7 = RH07 * AJ * REX7 * TS7 / CAPSF 


ABCDD920 


PS7 A = PS65 * (RH065 * V65 ** 2 - RH07 * V7 ** 2) / (3 * CA 

PS F) 

A BCD092 9 


DIR = DSQRT (DABS (PS7 / PS7A) ) 


ABCD0930 


EP = (PS7 - PS7A) / PS7 


A 3CD0 0 3 1 


CALL AFQUIR ( Q ( 1 ) , V7, EP , 0. ODO, 5 0 . OD 0 , 1 . ODO* TOLALL , DI R , V7T , I GO) 

ABCDO 9 3 2 


V7 = V7T 


A3CD0933 


IF (V7 .LT. 100. ODO) V7 = 100. ODO 


ABCD0934 


ICOAFB = 5 


ABCD' 1 9 3 5 


GO TO (17,19,14) , IGO 


ABCD0936 

19 

P7 = PS7 * DEX P ( (PHI7 - PHIS7) / RE X7) 


ABCD0937 


CALL PROCOM ( F AR7 , TS7 , CS7 , XX2 , XX 3 , XX 4 , X X 5 , X X 6) 


A BCD 0 93 B 


AM7 = V7 / CS7 


A3TD0 9 3 9 

20 

CALL THERMO (P7,H7,T7,S7,XX2,1,FAR7,0) 


A3CD0940 


IF (VAFTBN .EQ. 0.0D0) GO TO 31 


ABCDO 9 41 


Q (2) = 0. ODO 


A3CD0942 


Q (3) = O.ODC 


ABCDO 9 4 3 


HG7P = HG7 


ABCDO 9 4 4 


H7P = H7 


ABCD0945 


P7DOT = DER IV ( 1 8 , P7 ) 


ABCD0945 

28 

CALL THERMO (P7,H7,T7 ,S7,XX2,1,FAR7,0) 


A BCD 0 94 7 


MG7 = WG7P - P7DOT * VAFTBN / T7 / (1.4D0 * PA) 


ABCDO 94 3 


U7 = H7 - A JX * RA * T7 


ABCD0949 


U7DOT = DERIV (19,07) 


ABCD0950 


H7X = (WG7P * H7P - (WG7P - HG7) * U7 - U7DOT * P7 * VAFTBN 

/ 

ABCDO 9 5 1 

1 T7 / BA) / WG7 


ABCD0952 


ERRM = (H7 - H7X) / H7 


ABCD0953 


DIR * DSQRT (DABS (H7 / H7X) ) 


ABCD0954 


CALL AFQUIR (Q ( 1) ,T7 , ERR W, 0 . ODO , 2 0. ODO , . 1 DO*TOLALL , DI R, T7 T , 

IGO) 

ABCD0955 


ICOAFB = 6 


ABCDO 9 5 5 


GO TO (29,31,30) , IGO 


ABCD0957 

29 

T7 = T7T 


ABCD0958 


GO TO 28 


ABCD0959 

30 

CALL ERROR 


ABCD096 3 
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n n 


31 


ICOAFB = 0 
CALL COMNOZ 
BEXUEN 


END 


ABCD096 1 
ABCD0962 
ABCD0953 
ABCD0964 
ABCD0965 
ABCD096S 


Subroutine COCOMB 


SUBROUTINE COCOMB 
IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL SI, FXM2CP 
COMMON /COMALL/ COM (1062) 

COMMON /COMDAT/ COMD(5423) 

DIMENSION WORD (2) , PSIXB(15), DELXB (15,15) , ETAXB ( 15, 15), 

1 NPTB (15) 

DIMENSION Q (9) , DUMBO ( 1 5, 1 5) , AWORD (2-) 

EQUIVALENCE (WORD(1), COM(1)), (IDES, COM(3)), (MODE, COS (6) ) , 

1 (MAPEDG, COM ( 22) ) , (TOLALL, COS (23) ) , (T3, COM(152)), (H3, 

2 COM (153)) , (WA3, COM (1 54) ) , (WA3CDS, COM(155)), (T4, COM(156)), 

3 (H4, COM (157)), (S4, COM{158)), (WG4 , COM (159)) , 

4 (FAR4, COM (160)), (T50, COM (161) ) , (H50, COM(162)), 

5 (S50, COM (163) ) , (WG50 , COM(164)), (FAR50, COM(165)), 

6 ( PCBLHP, COM (166)), (PC3LIP, COM (167)), (PCBLLP, COM (168)), 

7 (PCBLDU, COM (169)), (PCBLOB, COM(170)), (CNHP, COM(171)), 

8 (ETATHP, COM (172) ) , (DHTCHP, C0M(173)), (DHTC, COM(174)), 

9 (TFFHP , COM ( 1 75) ) , (ETABCF, COM(179)), (ETABDS , COM(184)), 

1 ( WFBDS , COM (185) ) , (ETAB, COM{190)), (WAC, COB(191)), 

2 (WFB, COM ( 192) ) , (BLC, COM (193) > , (DPCODS, COM(197)), 

3 (DPCOM , COM (198)) , (P3, COM(379)), (P4, COM(381)), 

4 (04, COM (382) ) , (P50, COS (383)), (VCOMB, COM (398)), 

5 (ISPOOL, COM ( 1044) ) , (ITRAN, COM(1049)), (SI, COM(1355)), 

6 (FXM2CP , COM (1059)) 

EQUIVALENCE (PSIXB(I), C0SD(2761)), (DELXB(1,1), COMD(2776)), 

1 (ETA XB (1,1) , COMD (3001) ) , (NP3B, COMD(5360)), 

2 (NPTB ( 1 ) , COM D (536 1 ) ) 

DATA AWORD /4HCOCO, 4HMB / 

WORD ( 1 ) = AWORD (1) 

WORD ( 2) = AWORD ( 2) 

IF (SI) GO TO 100 
RA = .0252D0 
AJ = 2.719D0 
TMAX = 4000. 0D0 
TMIN = 1000. 0D0 
GO TO 101 

100 RA = 286. 9D0 
AJ = 1.0D0 
TMAX = 2222. 0D0 
TMIN = 555. 5D0 

101 Q (2) = O.ODO 
Q (3) = O.ODO 

P3PSI = 14.696D0 * P3 

IF (SI) P3PSI = . 14504D-3 * P3 

WA3C = WA3 * DSQRT (T3 ) / P3PSI 


ABCD0967 

ABCD0968 

ABCD096 9 

ABCD097 0 

ABCD097 1 

ABCD0972 

ABCD0973 

ABCDC974 

ABCD0975 

ABCD0975 

ABCD0977 

ABCD0978 

ABCD0979 

ABCD098 0 

ABCD098 1 

ABCD0982 

ABCD0983 

A3CD0984 

ABCD0985 

ABCD0985 

ABCD09S7 

ABCD0983 

ABCD09S9 

ABCD0990 

A8CD099 1 

ABCD0992 

ABCD0993 

ABCD0994 

ABCD0995 

ABCD099 5 

ABCD09°7 

ABCD0998 

ABCD0999 

ABCD1 COO 

ABCD1 001 

ABCD1 002 

ABCD1 003 

ABCP1004 

ABCD1 005 

ABCD1005 

ABCD1 007 

ABCD1003 

A3CD1 009 

ABCD1 010 

ABCD101 1 


58 


\o r* 





2 


4 


3 


5 


8 


IF (SI) HA3C = HA3 * DSQRT (T3) / P3 
IF (IDES . EQ. 1) HA3CDS = WA3C 
DPCOH = DPCODS * (WA3C / HA3CDS) 

IF (DPCOH .GT. 1.0D0) DPCOH = 1.0D0 
P4 = P3 * (I.ODO - DPCOH) 

IF (IDES .EQ. 1 .AND. HODE . EQ. 2) T4 = (MAX ♦ I MIN) / 2.0 
IF (IIEAN .EQ. 1 .AND. HODE . EQ. 2) CALL FCNTRL 
IF (T4 .GT. THAX) T4 = THAX 
IF (T4 .GE. THIN) GO TO 2 
T4 » THIN 

IF (HODE .EQ. 1) HAPEDG = 1 
DTCO = T4 - T3 

IF (SI) DTCO = DTCO * 9.0D0 / 5.0D0 
P3PSIN = P3PSI 

CALL SEARCH (- 1 . 0D0 , P3PSIN, DTCO, ET A B, DUMHY, PSIXB ( 1 ) ,N PSB, 

1 DELXB (1,1) ,ETAXB (1,1) , DUMBO (1 , 1 ) , NPTB ( 1) , 1 5, 15, IGO) 

IF (IGO .EQ. 7) CALL ERROR 

IF (IDES .NE. 1) GO TO 4 

ETABCF = ETABDS / ETAB 

ETAB = ETABCF * ETAB 

IF (SI) T4 = T4 * 9.0D0 / 5.0D0 

HV = (((((( - .4594317D-19 * T4) - . 20 34 1 16 D- 1 5) * T4 ♦ 

1 . 2783643D-1 1 ) * T4 + . 205 1 501D-07) * T4 - . 2453 1 16D-03) * T4 - 

2 . 9 433296D-01 ) * T4 * . 1845537D+05 
IF (.NOT. SI) GO TO 3 

T4 = T4 * 5.0D0 / 9.0D0 
HV = HV * 232 5. 4295D0 

CALL THERHO ( P4 , HA, T4, XX 1 , X X2, 0 , 0. 0 DO, 0) 

FAR4 = (HA - H3) / (HV * ETAB) 

IF ( FAR4 .LT. O.ODO) FAR4 = 0.0D0 

HFBX = FAR4 * WA3 

IF (MODE .NE. 2) GO TO 7 

ERRW = (HFB - HFBX) / HFB 

DIR = DSQRT (WFB / WFBX) 

CALL AFQUIR (Q ( 1 ) , T4 , ERR H, 0 . ODD , 2 0 . 0D0 , . 1 DO *TOLALL , DI R , T4 T , IGO) 

GO TO (5,8,6) , IGO 

T4 = T4T 

GO TO 1 

CALL ERROR 

HFB = HFBX 

IF (IDES .EQ. 1) WFBDS = HFE 

CALL THERMO ( P4 , H4 , T 4 , S 4 , X X 2, 1 , F AR4 , 0) 

HG4 = HFB + WA3 

IF (VCOHB .EQ. O.ODO) GO TO 21 
Q (2) = O.ODO 

Q (3) = O.ODO 

HG4P = HG4 
H4P = H4 

P4DOT = DERIV (10 ,P4) 

CALL THERHO (P4, H4,T4, S4,XX2,1,FAR4,0) 

HG4 = HG4P - P4 DOT * VCOMB / T4 / 1.4D0 / RA 
U4 = H4 - AJ * RA * T4 
U4DOT = DERIV (11 ,U4) 


ABCD1012 
ABCD1013 
ABCD1 01 4 
ABCD1015 
ABCD1015 
ABCD1017 
ABCD1013 
ABCD1019 
ABCD1020 
ABCD1021 
A BOD 1 r 22 
ABCD1 "23 
ABCD1 024 
ABCD1025 
ABCD1025 
ABCD 1027 
ABCD1023 
ABCD 1029 
ABCD1030 
A BCD 1 03 1 
ABCD1032 
A BCD 1 0 3 3 
ABCD 1 034 
A3CD1 035 
ABCD 1 036 
ABCD1 037 
A3CD1 038 
AECD1 039 
ABCD1 040 
ABCD1 041 
A BCD 1 0 4 2 

ABCD1 043 

A3CD1044 
ABCD 1 045 
A3CD1 046 
A BCD 10 4 7 
ABCD1 048 
ABCD1049 
ABCD1 050 
ABCD 1051 
ABCD1 052 
ABCD1053 
ABCD1 054 
ABCD1 055 
ABCD1 056 
ABCD1057 
ABCD 1 058 
ABCD 1 059 
ABCD1 060 
ABCD 1 061 
ABCD 1062 
ABCD1 063 
ABCD 1064 


H4X = (HG4P * H4P - (HG4P - HG4 ) * U4 - U4DPT * P4 * VCOMB / T4 / A8CD1065 
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non 


19 

20 
21 


22 


9 


C 


10 


1 RA) / WG4 

ERRW = (H4 - H4X) / H4 

DIR = DSQRT (DABS (H4 / H4X) ) 

CALL AFQUIR ( Q ( 1 ) ,T4, ERF W, 0 . 0D0 , 20 . 0D0, . 1 DO*TOLALL , DI R , T4 T , IGO) 
GO TO (19,21,^0) , IGO 
T4 = T4T 
GO TO 18 
CALL ERROR 

PCBLUS = 1.0 - PCBLHP - PCBLIP - PCBLLP - PCBLOB - PCBLDU 
IF (PCBLUS .LT. .00001D0) GO TO 22 
BLUS = BLC * PCBLUS 

IF (BLUS .LT. (.0000001D0 * WAS)) GO TO 22 
FAR4 = FAR4 * HG4 / (WG4 ♦ BLUS * (1.0D0 «■ FAR4) ) 

H4 = (H4 * WG4 + H3 * BLUS) / (WG4 ♦ BLUS) 

HG4 = WG4 + BLUS 

CALL THERMO { P4 , H4 , T4 , S4 , X X2 , 1 , F AR4 , 1 ) 

IF (IDES .EQ. 1) WRITE (6,10) WA3CDS, ETABCF 

IF (FXM2CP .OR. ISPOOL . EQ. 1) GO TO 9 

CALL CO HPT B 

RETURN 

F50 = P4 

H50 = H4 

T50 = T4 

S80 = S4 

FAR50 = FAR4 

W350 = WG4 

Si-T HIGH PRESSURE TUFBTN'E PAPAMETFR5 to ZERO, NOT USED 

TFFHP = 0.0D0 

CNHP = 0.0 DC 

DHTC = O.ODO 

DHTCHP = O.ODO 

ETATHP = O.ODO 

IF (FXM2CP) CALL COIPTB 

IF RUNNING 1 SPOOL T J GO TO COHPTB TO ZERO OUT COIPTB 

IF (.NOT. FXM2CP) CALL COHPTB 

RETURN 


FORMAT (17HOCOMBUSTOF DESIGN, 7X, 8H WA3CDS=, F15.8, 3H ETABCF=, 
1 E15.3) 

END 


ABCD1066 
ABCD1057 
ABCD1 069 
ABCD1069 
ABCD1070 
ABCD107 1 
ABCD1 072 
ABCD1073 
ABCD1074 
ABCD1 075 
ABCD1 076 
ABCD1077 
ABCD1073 
ABCD1079 
ABCD1033 
A BCD 1 08 1 
ABCD1032 
ABCD1 OR3 
ABCD1 084 
AECD1 035 
ABCD1 08' 
A3CD1 087 
A BCD 1 08 ? 
ABCDlOe? 
ABCD1 090 
A BCD 1 09 1 
ABCD 1 0° 2 
A3CD1003 
ABCD 1 094 
A3CD1 095 
A3CD1 096 
ABCD1 097 
AECD1 093 
ABCD 1 099 
ABCD1 100 
ABCD1 101 
ABCD1 102 
ABCD 110 3 
ABCD1 104 
ABCD1 105 
A3CD1 106 
ABCD1 107 


Subroutine COCOMP 


SUBROUTINE COCOMP 
IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL SI, DUMSPL , FXM2CP , AFTFAN, FAN 
COMMON /COMALL/ COM( 1062) 

COMMON /COMDAT/ COMD(5423) 

DIMENSION WO RD ( 2) , ERR (9) , CNXP(15), PRXP(15,15), WACXP (1 5, 15) , 
1 ETAXP (15,15) , NPTP (15) 

DIMENSION Q (9 ) , WLH(2,2), AWORD(2) 

EQUIVALENCE (WORD(1), COM ( 1) ) , (IDES, COM(3)), (MODE, COM (6)), 


ABCD1108 
ABCD 1109 
ABCD1 110 
ABCD1111 
ABCD 1 112 
ABCD1 113 
ABCD1 114 
ABCD 1115 
ABCD1 116 
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1 (MAPEDG, COM (22) ) , (TOLALL, COM (23)), (ERR ( 1) , COM (24) ) , (T2, 

2 COM (92) ) , (T3 , COM (152)), (H3, COM (153)), (W A3, COM (154)), 

3 ( PCBLHP, COM (166)), (PCBLIP, C0M(167)), (PCBLLP, COM (168)), 

4 (PCBLDU, COM (16 9) ) , (PCBLOB, C0M(170)), (H AC, COM(191)), 

5 (BLC, COM (193)), (T21, COM (263) ) , (H21, COM (264)), 

6 (S21, COM (265) ) , (WA21, COM(266)), (T21DS, COM(267)), 

7 (T22 , COM (268) ) , (WA22, COM(259)), (S3, COM(270)), 

8 (MA32, COM (27 1) ) , (PRCCF, COM(294)), (ETACCF, COM (295) ) , 

9 (HACCF, COM (296 ) ) , (PRCDS, C01(297)), (ETACDS, COM(298)), 

1 (MACDS, COM (299)), (ZC, COM (300) ) , (PCNC, COM (301)), 

2 (PCBLC, COM (302) ) , (PCNCDS, COM(303)), (PCBLI, COM(304)), 

3 (PCBLID, COM (305)), (CNC, COM (306)), (PRC, COM (307)), 

4 (ETAC, COM (308)), (CNI, COM(309)), (WACI, COM(310)), 

5 (MAI, COM (311)) , (BLI, COM (312)), ( BLHP, COM(313)), 

6 (BLIP, COM (314) ) , (BLLP, COM(315)), (BLF, COM(316)), 

7 (BLDU, COM (317)) , (BLOB, COM(318)), (HAF, COM(319)), 

8 (WACC, COM (3 20)), (P21, COM(377)), (P3, COM (379)), 

9 (03 , COM (380) ) , (VCOMP, C0M(397)), (WACP, COM(422)), 

1 (ISPOOL, COM (1044)), (SI, COM (1055)), (DIJMSPL, COM (1057)) 
EQUIVALENCE (FXM2CP, COM(1059)), (AFTFAN, COM(1060)), 

1 (FAN, COM (10 6 1) ) 

EQUIVALENCE (CNXP(1), COMD(207 1)), (PRXP(1,1), COMD(2086)), 

1 ( W ACXP (1,1), COMD (2311) ) , (ETAXP(1,1), COMD(2536)), 

2 (NCNP, COMD (5344) ) , (NPTP(1), COMD(5345)) 

DATA AWORD, WLH /4HCOCO, 4HMP , 4H (LO, 4H) , 4H (HI, 4H) 

WORD ( 1 ) = AWORD ( 1 ) 

WORD(2) = AWORD (2) 

IF (SI) GO TO 100 
TSTD = 51 8. 668 DO 
PS ID = 1 . 0 DO 
RA = . 0252D0 
AJ = 2.719D0 
GO TO 101 

100 TSTD = 288. 149D0 
PSTD =■ 101325. 0D0 
RA = 286. 9D0 
AJ = 1.0D0 

10 1 THETA = DSQRT ( T2 1 / TSTD) 

DELTA = P21 / PSTD 

IF (IDES .NE. 1 .AND. .NOT. FXM2CP) GO TO 2 
IF (IDES .NE. 1) GO TO 1 
MACDS = MAC 

WACC = MAC * THETA / DELTA 
IF ( FXM2CP) GO TO 1 
PCNC = PCNCDS * THETA 
GO TO 2 

C SPEEDS OF MIDDLE AND INNER SPOOL ARE THE SAME 

1 SPDMID = CNI * DSQRT (T22 / TSTD) 

IF (AFTFAN) SPDMID = CNI * DSQRT (T2 / TSTD) 

CNC = SPDMID / THETA 

PCNC = 100. 0D0 * THETA * CNC 

IF (IDES .EQ. 1) PCNCDS = PCNC / THETA 

2 CNC = PCNC / (100. ODO * THETA) 

IF (ZC .LT. 0.0D0) ZC = 0. ODO 


ABCD1 117 
ABCD1 11 8 
A BCD 1 1 1 9 
ABCD1 120 
ABCD1 121 
ABCD1 122 
ABCD1 123 
ABCD1 124 
ABCD1125 
ABCD1 126 
ABCD1 127 
ABCD1 128 
ABCD1 129 
A3CD1 130 
A BCD 1 131 
ABCD1 132 
ABCD1 133 
ABCD1 134 
ABCD1 135 
ABCD1 135 
ABCD1 137 
ABCD1 138 
ABCD1 139 
ABCD1 140 
/ ABCD1141 
ABCD1 142 
A0CD1 143 
ABCD1 144 
ABCD1 145 
ABCD1 145 
ABCD1 147 
ABCD1 143 
ABCD1 149 
ABCD1150 
ABCD1151 
A3CD1 152 
ABCD1 1 53 
ABCD1 154 
ABCD1 155 
A BCD 1 15 5 
ABCD1 157 
ABCD1 158 
ABCD1 153 
ABCD1 160 
ABCD1 161 
ABCD1 162 
ABCD1 153 
ABCD1 164 
ABCD1 165 
ABCD1165 
ABCD1167 
ABCD1 163 
ABCD1 169 
ABCD1 170 
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12 

13 

4 


5 


13 


IF (ZC .GT. 1.0D0) ZC = 1 . ODO 
CNCS = CNC 

IF (ISPOOL .EQ. 1) GO TO 12 

CALL SEARCH ( ZC , CNC, PRC , WACC, ET AC, CN XP ( 1 ) , NCNP , PR XP (1 , 1 ) , 

1 WACXP (1,1) , ETA XP (1,1) , NPTP (1) , 15, 15,IGO) 

GO TO 13 
PRC = 1 .ODO 
ETAC = 1 .ODO 
WAC = WA21 

WACC = WAC * THETA / DELTA 

CNC = 1.0D0 

PFCCF = 1.0D0 

IF (MODE .EQ. 1) GO TO 4 

IF ((CNC - CNCS) .GT. . 5D0 * TQIALL * CNC) MAPEDG = 1 
IF (IGO .EQ. 1 .OR. IGO .EQ. 2) WRITE (8,9) CNCS , WLH ( 1 , 130) , 

1 WLH (2, IGO) 

WAC = WACC * DELTA / THETA 
I? (IDES .NE. 1) GO TO 5 
T21DS = T21 

IF (ISPOOL .GE. 2) PRCCF = (PRCDS - 1.0D0) / (PRC - 1.0D0) 

ET ACC F = ETACDS / STAC 

IF (ISPOOL .EQ. 1) ETACCF = I.ODO 

WACCF = WACDS / WAC 

WRITE (6,10) PECCF, ETACCF, WACCF, T21DS 
PRC = PRCCF * (PRC - I.ODO) + I.OdD 
ETAC = ETACCF * ETAC 
WAC = WACCF * WAC 
WACP = WAC 

IF (.NOT. DUMSPL .OR. PCELID . NE. C.OPC .OF. .NOT. FAN) GO TO b 

W A 2 2 = WAC 

WAI = WA22 

WACI = WACC * WACCF 

WA 32 = WAI - WAC 

BLI = WA32 

WA2 1 = WAC 

WACC = WACC * WACCF 

PCBLI = BLI / WAI 

CALL WDUCT1 

IF (PCELID , EQ . O.ODO) £.RF C 7 ) = (WAC - WAI) / WAC 

IF (.NOT. FhN ) EFE (5) = (WAR - WAC - DLF) / WAC 

IF (IDES . EQ. 1 .AND. PCELID .EQ. O.ODO) LF^ (7) = 1.00-4 

CALL THCOKP ( PRC , ET AC , T 2 1 , H2 1 ,3 2 1 , P 2 1 , T 3, H 3 , S 3, P3 ) 

IF ( V COM P .EQ. O.ODO) GO TO 21 
Q (2 ) = C.ODC 

0(3) = O.ODO 

H3F = HJ 

P3D0T = DSRIV ( 8 , P 3 ) 

CALL THERMO ( P J , H3 , T 3, S 3 , X X 2, 0, C . CD C , 0) 

WAC = WACP - P3D0T * VCCMP / T 3 / 1.4P9 / FA 
U 3 = H3 - A.T * RA * T3 
U3D0T = DEFIV(9,H3) 

H3X = (WACP * H3 P - (WACP - WAC) * IP - H 3D OT * °3 * '/COM? / T3 / 
1 RA) / WAC 

SPRW = { H 3 - H 3 X ) / H? 


ABCD1171 
ABCDl 172 
ABCD1 173 
ABCDl 174 
ABCDl 175 
ABCDl 175 
ABCDl 177 
ABCDl 173 
ABCDl 179 
ABCDl 193 
ABCDl 181 
ABCDl 192 
ABCDl 193 
ABCDl 194 
ABCDl 135 
ABCDl 186 
ABCDl 137 
ABCDl 18? 
ABCDl 189 
A BCD 1 1 9 0 
ABCDl 191 
ABCDl 192 
ABCDl 193 
ABCD1194 
ABCDl 195 
ABCDl 195 
ABCDl 197 
A3CD1 193 
ABCDl 199 
ABCDl 200 
ABCDl 201 
ABCDl 2'Q2 
ABCD12C3 
ABCDl 204 
ABCD120F 
ABCDl 206 
ABCDl 207 
ABCDl 2"? 
A BCD 1 20 0 
ABCD1210 
ABCDl 21 1 
ADCD1212 
A3CD121 i 
ABCDl 21 4 
ABCD1215 
ABCDl 2 1 ? 
ABCD 1217 
APCD1213 
ABCD 121 9 
ABCD 1 220 
A3CD1221 
ABCDl 22? 

A ETD1 22 3 
ABCDl 224 
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oo u u u os 


19 

20 
21 


10 

11 


DIR = DSQRT (DABS (H3 / H3 X) ) 

CALL AFQUIR (Q(1) , T 3 , ERR W, 0 . 0D0 r 2 0 . 0 DO , . 1 DO*TOLALL , DI R , T3T , ISO) 
GO TO (19,21,20) , IGO 
T3 = T3T 
GO TO 18 
CALL ERROR 

IF (PCBLC .GT. 0.0D0) BLC = PCBLC * WAC 

WA3 = HAC - BLC 

BLDU = PCBLDU * BLC 

BLOB = PCBLOB * BLC 

BLHP = PCBLHP * BLC 

BLIP = PCBLIP * BLC 

BLLP = PCBLLP * BLC 

IF (MODE .NE. 1) GO TO 7 

IF (DABS (CNC - CNCS) .LE. 1 .ODO * TOLALL * CNCS) GO TO 8 
WRITE (8,11) CNCS, CNC 
CALL ERROR 

PCNC = 100. ODO * THETA * CNC 

CALL COCOBB 

RETURN 


FORMAT (19H0* * * CNC OFF M AP, F 10 . 4 , 2X, A4, A2, 1 1 H* * *$$$$$$) 
FORMAT ( 1 8 HOCOMPR ESSOR DESIGN, 6X,8H PRCCF = , E 1 5. 8 , 8H ET’ACCF = , 

1 E 1 5. S, 8H WACCF=,E15.8,8H T 2 1 DS = , E 1 5 . 8) 

FORMAT (10H0CNC WAS = ,E15.9,11H AND NOW= ,E15.8,12H CHECK PCNC, 

1 1 2 H INPUT $$$$$$ ) 

END 


ABCD1 225 
ABCD1 226 
ABCD1227 
ABCD1 223 
ABCD1 229 
ABCD1 230 
ABCD1231 
A3CD1232 
A3CD1 233 
ABCD1 234 
ABCD1235 
A3CD1 236 
ABCD1 237 
ABCD1238 
ABCD123? 
ABCD1 240 
ABCD1241 
ABCD1 242 
ABCD1243 
ABCD12U4 
ABCD1 245 
ABCD1 248 
ABCD1 247 
ABCD1243 
A3CD1 249 
A3CD1250 
ABCDl 251 
A 3 C D 1 2 5 2 
ABCDl 253 


Subroutine CODUCT 


SUBROUTINE CODUCT 
IMPLICIT RE A L* 8 (A-H,0-Z) 

LOGICAL SI, AFTFAN 
COMMON /COMALL/ COM (1062) 

DIMENSION WORD ( 2) , ERR (9) 

DIMENSION Q (9 ) , AWORD1 (2) , AWORD2(2) 


EQ[J I V AL 

iHNCE (WORD ( 1) , 

COM ( 1) ) , 

(IDES, COM (3) ) , 

(IGASMX 

I w 

OM (ID) 

1 

(IDBURN, COM (11 

)), (IDCD, COM ( 1 

3) ) , (IDSHOC, COM (15) ) , 



2 

(NOZFLT, COM (17 

) ) . (TO 

LALL, COM 

(23)), (ERR (1) , 

COM (24) 

) , 

(PI, 

3 

COM ( 33) ) , (H 22, 

COM (34 

)), (AM23 

, COM (35)), (WA2 

3 DS , CO 

M (3 

6) ) , 

4 

(123, 

COM (37) ) , 

(P23, 

COM (38) ) , 

( H 2 3 , COM (39) ) , 

(S23, 

COM 

(40) ) , 

5 

(A24, 

COM (41) ) , 

(124, 

COM (42) ) , 

(H 2*- , COM (4 3) ) , 

(S24, 

COM 

(44) ) , 

6 

( AM25, 

COM (45) ) 

, (T25, 

COM (46) ) 

, (P25, COM (47)) 

, (U25, 

CO 

M (48) ) 

7 

(325, 

COM (49) ) , 

(A28 , 

COM (50)) , 

(A28SAV, COM (51 

) ) , 



8 

( A M 28, 

COM (52) ) 

, (728 , 

COM (53) ) 

, ( TS28 , COM (54) 

) , 



9 

(PS2 8 , 

COM (55) ) 

. (T28, 

COM (56) ) 

, (P28, COM (57)) 

, (H28, 

CO 

« (58) ) 

1 

(S 28 , 

COM (59) ) , 

(A29, 

COM (60) ) , 

( A 2 9 S A V , COM (61 

) ) . 



2 

(AM29, 

COM (62) ) 

, (729 , 

COM (6 3) ) 

, ( TS 29 , COM (64) 

) , 



3 

(PS29, 

COM (65) ) 

, (T29, 

COM (66) ) 

, (P29, COM (€7)) 

, (829, 

CO 

M (68) ) 

4 

(S29, 

COM (69) ) , 

(BYPAS 

S, COM (7 0 

)), (WAD, COM (71 

) ) , 



5 

(WFD, 

COM (72) ) , 

(ETAD, 

COM (73) ) 

, (DPDDC , COM (74 

) ) , 



6 

(DPDIJDS, COM (75) ) , (H3 

i, COM (153) ) , (SAC, COM (19 

D ) , 




A3CD1 254 
ABCDl 255 
A3CD1 256 
ABCDl 257 
A3CD1 25S 
ABCDl 2 C '9 
A3CD12S9 
ABCD1251 
A BCD 126 2 
A9CD1 253 
A3CD1 264 
ABCDl 265 
A3CD1265 
ABCDl 267 
A3CD1253 
ABCDl 26° 
ABCDl 270 
ABCDl 271 
A BCD 1 27 2 
ABCD1273 
ABCDl 274 
ABCDl 275 
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7 (PCBLID, COM (305) ) , (WAI, COM(311)), (BLF, COM(316)), 

9 (BLDU, COM (3 17)), (WAF, C0M(31?)), (WG24, COM(321)), 

) (FAK24, COK ( 3 22) ) , (P22, COM(37S)), (P24, COM(391)), 

1 ( U24 , COM (392)), (VFDtJCT, COM (403)), (ICODUC, COM ( 1046)) 

EQUIVALENCE (ITRAN, COM (1049)), (SI, COM (1055)), 

1 (AFTFAN, COM ( 1C 60) ) 

DATA AWORD1, AWOPD2 /4HCODU, 4 H C I , t HDN07 , 4 HZL / 
WORD(1) = AW0BD1 (1) 

WORD (2) = AKORP1 (2) 

0(2) = O.ODO 

0(3) = O.CDO 

G 0 G 0 = O.ODO 
IF (SI) GO TO 100 
AJ = 77B.26D0 
AJX = 2 . 7 1 9 DO 
CAFSF = <;1 It. 217CD0 
0 - 3 2 . 1 7u C4 9D0 
T3 1 D = 5 1 8 . 6 7 D 0 
TDEL = 2000. ODO 
TMAX = 400C.0DC 
HA = . 02 52 DC 
SO TO 101 
IOC AJ = 1 . 0 DO 
AJX = 1.0 DO 
CAPSF = 10132 5.0 DC 
G = 1.0 DO 
T S T T) = 2 3*- . 15 DC 
TDEL = 1111.0 DC 
TMAX = ^222. Onl 
F. A = 2b6 . 9 DO 

101 GAJ2 = 2.0DC * G * AJ 
ICO DU C = C 

WAX = WAF - WAI - BLF 

IF ( PCELTD .FQ. O.ODO) WAX = WAF - WAC - ELF 
IF (AFTFAN) WAX = WAF - BLF 
WAD = WAX ♦ BLDU 
P23 = P22 
C*** DRY LOSS 

H23 = (BLDU * H3 + WAX * H22) / WAD 

CALL THEhMO (P23,H23,T23 ,S23,XX2, 1, O.ODO, 1) 

WA23C = WAD * DSQRT (T 23) / P23 

IF (IDES .EQ. 1) WA23DS = WA23C 
BYPASS = (WAF - WAI) / WAI 
IF (AFTFAN) BYPASS = WAF / WAI 
DPDUC = DPDUDS * (WA23C / WA23DS) 

IF (DPDUC .GT. 1 .ODO) DPDUC = I.ODO 
P24 = P23 * (I.ODO - DPDUC) 

CALL PROCOM ( 0 . ODO , T 2 3, XXI , XX 2, X X3 , XX4 , PHI2 3 , XX6) 

IF (IGASMX .GT. 0) IDBURN = 0 
AM24 = AM23 
TS24 = T23 * 0.875D0 
1 DO 2 I = 1,50 

CALL PROCOM (0 . ODO , TS 24 , CS 2 4 , AK2 4 , CP24 , REX24 , PHIS24 , US 24) 
V24 = AM 24 * CS24 


A3CD1275 
ABCD1277 
ABCD1 273 
ABCD1279 
ABCD1280 
ABCD1 29 1 
A BCD 1 292 
A BCD 129 3 
ABCD1 284 
ABCD1 235 
ABCD1 286 
ABCD1287 
ABCD129P 
ABCD1239 
A3C01 29 0 
A BCD 1 29 1 
A BCD 1 29 ? 
A3CD1 253 
ABCD1 294 
A3CD1295 
A3CD1296 
A3CD1 2 Q 7 
A3CD1 293 
A3CD1293 
ABCD1 300 
ABC01301 
ABCD1 302 
A3CD1303 
ABCD1 304 
ABCD1 305 
ABCD1306 
ABCD1 307 
ABCD1 308 
ABCD1 309 
ABCD1 310 
A3CD1311 
ABCD1 31 2 
ABCD1313 
ABCD1 314 
ABCD1 315 
A BCD 1315 
ABCD1317 
ABCD1313 
ABCD1319 
ABCD1320 
ABCD1321 
ABCD1322 
ABCD1 323 
ABCD1 324 
ABCD1325 
ABCD1326 
ABCD1327 
ABCD1 328 
ABCD1329 
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HSCAL = H23 - V24 ** 2 / 0AJ2 
DELHS = HSCAL - HS24 

IF (DABS (DELHS) .LE. 1.CD0 * TQL ALL * HSCAL) 
TS24 = TS24 + DELHS / CP24 
ICODUC = 1 


50 TO 3 


GO TO 11 

3 Cl = P24 * DSQFT (O / (T 2 3 * »J)) * CAPSF 

AK24M1 = A K 24 - I.ODO 

AK24P1 = A K24 + I.ODO 

AKM1 = AK24M1 / 2. ODD 

AKP 1 = AK24P1 / 2 . 0 DO 

IF (IDES . NE. 1) GO TO 4 

IF (GOGO .GT. 0.0D0) GO TO 4 

ASIOA = AKP 1 ** (AKP 1 / AK24M1) * AM24 * (I.ODO ♦ AKM1 * 

1 AH24 ** 2) ** (- AKP 1 / A K 2 4 *1 1 ) 

EQWCR = DSQFT (G * AK24 / R E X 2 4 / AJ) / (DSQFT (TSTD) / CAPSF) * 

1 (2.0D0 / AK24P1) ** ( A K P 1 / AK24M1) 

WA23CC = W A 2 3 C / DSQFT (TSTD) 

A24 = I.ODO / ASTOA * WA23CC / EQWCR 
GOGO = I.ODO 

4 WQA = WAL' / A24 

WQAT = Cl * DS OFT ( A K24 / FEX24) * AM24 / (I.ODO + A KM 1 * AM24 ** 

1 2) ** (AKP 1 / AK24.M1) 

DIF = WQA / WQAT 

EW = (WQA - WQAT) / WQA 

CALL AFQUIEv (Q ( 1 ) , AM 24 , t W, 0 . C DC , 3 0 . OD 0, 1 . CDO* TOL A L L , P I P , AM 24 T, I GO) 

ICODUC = 2 

GO TO (5,6,11), IGO 

5 A M 24 = AM24T 

IF (AM24 .GT. I.ODO) AM24 = O.5D0 
GO TO 1 

6 PS24 = P24 / DEXP ( (PHI23 - PHI524) / PEX2U) 

7 IF ( IDBURN .GT. 0) GO TO 8 

C*** NON-DUCT BURNING 

T24 = T23 
WFD = 0.0D0 
FAE24 = 0.0D0 
GO TO 17 

8 IF (IDBUPN .EQ. 2) T24 = T23 + TD E L 

9 IF (T24 .GT. TMAX) T24 = T MAX 

IF (T24 .LT. T23) T24 = T23 

C*** DUCT BURNING 

RH042 = CAPSF * FS24 / (AJ * REX24 * TS24) 

PS42 = PS24 
V42 = V24 
Q (2) = 0.0D0 

Q (3) = 0.0D0 

IF (T24 .LT. T23) T24 = T23 * 1.001D0 

C *** IF DESIRED, ENTER CALCULATIONS FOR ETAD HERE 
IF (SI) T24 = T24 * 9.0D0 / 5.0D0 

HV = (((((( - .45943170-19 * T24) - .20341 16D-15) * T24 ♦ 

1 . 2783643D- 1 1 ) * T24 * . 20 5 1 501 D-07 ) * T24 - . 2453 1 16 D-03) * T24 

2 - . 9433296D-0 1) * T24 ♦ . 1845537D+05 
IF (.NOT. SI) GO TO 102 


0. 5 DO 


T24 = T 2 3 + TD E L 
T24 = TMAX 
T 24 = T 2 3 
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I III I 


■III 


I III IB ■■■■■■■■■■ 


102 


10 

11 

12 

c :*** 
13 


14 


15 


15 


17 


25 


T24 = T24 * 5.0D0 / 9.0D0 
HV = HV * 2325.4295D0 

CALL THERMO ( P24 ,H A , T24 , XXI , XX2 , 0, 0 . 0 DO , 0 ) 
FAR24 = (HA - H23) / (HV * ETAD) 

IF (FAE24 .LT. O.ODO) FAR 2 4 = 0.0D0 
WFDX = FAR24 * HAD 
IF (IDBORN .NE. 2) GO TO 12 
ERR H = ( HFD - WFDX) / WFD 
DIR = DSQRT (WFD / WFDX) 


A3CD1384 
ABCD1385 
ABCD1 386 
ABCD1387 
ABCD1383 
ABCD1 389 
ABCD1390 
ABCD1391 
ABCD1392 


CALL AFQUIR (Q ( 1) , T 24, ERRW , 0 . ODO , 2 0 . 0D0 , . 1 DO *TOL ALL ,DI R , T2 4T, 13 0) A6CD1393 

ICODUC -3 

GO TO (10, 13, 1 1) , IGO 
T24 = T24T 
GO TO 9 
CALL ERROR 
WFD = WFDX 
MOMENTUM LOSS 
WG24 = WFD + WAD 

CALL PROCOM ( F AR24 , T 24 , X XI , XX2, XX3 , REX 24 , PH 1 24 , H24 ) 

RH024 = C APS F * P24 / (AJ * REX24 * T24) 

V24 = WG24 / ( RH024 * A24) 


A3CD1 394 
A3CD1 395 
A3CD1396 
ABCD1 397 
ABCDl 398 
A3CD1399 
A3CD1 400 
ABCDl 401 
ABCDl 402 
ABCDl 403 
ABCDl 4 04 
A BCD 1 u 05 
ABCDl 4 06 
ABCDl 407 
A BCD 1 4 03 
A3CD1 409 
ABCD1410 
ABCDl 4 1 1 
ABCD1412 

APCDH 1 1 
AQCD1 41 4 
ABCDl 4 1 5 


Q (2) = O.ODO 

Q (3) = O.ODO 

PS24 = PS42 - 0.01D0 
RH024 = WG24 / (V24 * A24) 

HS24 = H24 - V24 ** 2 / GAJ2 

CALL THERMO ( 1 . 0 DO, HS24 , TS 24, PHI 324 , X X 2 , 1 , F AR 24 , 1) 

IF (TS24 .GE. 301. ODO) GO TO 15 

CALL THERMO ( 1 . C DO , HS24 , 40 0 . 0 DO , PH 1 3 24 , XX2, 1 , FAF 24 , 1) 

V24 = DSQRT (GAJ2 * (H24 - H S 2 4 ) ) 

GO TO 14 

PS24 = FH024 * AJ * R E X 2 4 * TS24 / CAPS? 

PS24A = PS4 2 * (RH042 * V42 ** 2 - RH024 * V24 ** 2) / (G * CAPSF) A3CD 1 4 1 J 

DIR = DSQRT (DABS (PS24 / PS 2 4 A ) ) A*CD1M7 

EP = (PS24 - PS 24A) / PS24 A3CD1413 

CALL AFQUIK (Q ( 1 ) , V 2 4 , F P , 0 . 0 D 0 , ? 0 . 0 DO , 1 . C DO *T OL ALL , DT R , V 24 T , IGO ) A3CD1413 

V 24 = V 2 4T ABCDl 4 ? D 

IF (V24 .LT. 25.CD0) V24 = 25. ODO #BC01U21 

ICODUC = 4 ABCD14?2 

GO TO (14,16,11), IGO A ^ C D 1 4 2 3 

p 24 = P S 2 4 * DE X P ( (FHI 2 4 - PH1524) / R E X 2 4 ) A3CDH'2u 

CALL PPOCCM (FAR24,TS24,CS24, XK2, VX3, XX4, XX C ,XX6) A n CDl425 

AM24 = V24 / C S 2 4 A3CD1425 

CALL THERMO ( P24 , H 24 , T 24 , S 24 , XXT , 1 , F A? 24 , ") ABCD1427 

WG24 = WFD + WAD A3CD142R 

IF (VFDIJCT .EQ. O.ODO) GO TC 31 A8CD1429 


Q(2) = O.ODO 

Q (3) = O.ODO 

WG24P = WG24 
H 24 P = H24 

P24DOT = DERI V (20 ,P24) 

CALL THERMO ( P24 , H 24 , ?2« , S 2 *» , XX2 , 1 , " At 24 , 0) 

WG24 = WG24P - P24 DOT * VFDUCT / T24 / ( 1 . 4 DO * RA) 

U24 = H24 - A JX * RA * T24 


ABCDl 430 
ABCD1431 
A 3CD 1 4 3 2 
ABCDl 433 
ABCDl 4 34 
A BCD 1 4 36 
A BCD 1 4 36 
ABCD1437 
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n o 


29 


30 

31 


IP 


19 


2C 

21 


22 


024 DOT = DEBIV (21,024) 

H24X * (WG24P * H24P - (W324P - 

1 7FD0CT / T24 / RA) / WG24 
EBRW = (H24 - H24X) / H24 

DIB = DSQBT (DABS (H24 / H24X)) 

CALL AFQOIR (Q ( 1) , T24 , EBRW , 0 . 0D0 , 2 0 . 0D0 , 
ICODOC = 5 

GO TO (29,31,30) , IGO 

T24 = T24T 

GO TO 28 

CALL ERROR 

T25 = T24 

P25 = P24 

H25 = H24 

S25 = S24 

AH25 = AM24 

IF (IGASMX .GT. 0) GO TO 21 
WOR D ( 1 ) = AWORD2 (1) 

WORD (2) = AWORD2 (2) 

A28SAV = A28 
A29SAV = A 2 9 
NOZD = 0 
IDNOZ = 0 

IF (NOZFLT .EQ. 2 .OP. NOZFLT . EQ. 3) 

IF (IDES .EQ. 1 .OP. IPEURN . GT . 0 .OR. 

IF (ITRAN .EQ. 1) IDNOZ = 0 
IF (IDCD .EQ. 1) GO TO IB 

CALL CON V RG (T 25 ,H 25 , ?2 c , S ? 5 , FAR ?U , W G2 4 
1 P28,S28,TS28,PS28,V2o,A M 2P,1.70 M ) 

GO TO (19,19,19,11), ICON 

CALL CONDIV (T 2 5 , H 2 5 , P 2 5 , S ? 5 , F A 17 24 , 7 G 2 

1 H28,P28,S28 ,12° ,8 29 , P29 ,S29 ,1328, TS2 C , 

2 AM 2 9 , ICON ) 

IDSHOC = ICON 
ICODUC = 6 

GO TO (20,20,^0,11), ICON 
T2S = T 2 8 
H 29 = H2fi 
P 29 = P 2 8 
S 29 = S2P 
TS29 = TS2 o 
PS29 = PS28 
V29 = V28 
AM 2 9 = AM 2 8 
A 2 9 = A29 
IDSHOC = ICON * 3 
ESP (5) = (P25S - P2£) / P25R 

IF ( IDNOZ .EQ. 1) WRITE (5,22) A 2 B 
ICODUC = 0 
CALL FAST 3K 
RETURN 


FORMAT (19 HO DUCT NOZZLE DESIGN, 5X, 


ABCD1438 
A BCD 1 4 39 
A3C01 440 
ABCD1441 
ABCDU'42 
ABC01443 
ABCD1444 
A BCD 1 44 5 
ABCD1 445 
ABCD1447 
A BCD 1 44 P 
A BCD 14 4 9 
A PCD 1 450 
ADC0 1 U 5 1 
ABCD1 452 
A PCD 1 4 c 1 
A3CD1 454 
A 601 4 C 5 
A BCD 1 4 5 5 
A I CD 1 U 3 7 
A 3 C 1 1 ( '5- 
>;ni' 5 i 
A 1 4 0 
A 7 0 11 c 1 
a ■■» c D 1 ' ' c ? 
A PC 0 1 f 1 
A ? C 0 1 4 4 '! 
.ABOVE" 
A EC 014 5 ; 
A BOOK. 5 7 

7 7 f - , n r 0 1 '• 5 
A PCD V f' 

Ai-t'Ol i- 7 1 
f P. C 0 1 (• " 1 
k?C O 1 u 7 I 
» "TO 1 4 7 1 
ALCD1 17; 
4 ~C0 1 11 ~> z 
A Q C 0 1 <■ 7 E 
AFOIl'77 
A 8 C 0 1 f7w 

a rscDi >' 73 

AFCD1 u«0 
A BCD 1 '> 7 1 
A3C0 1 LB? 
A BCD 1 >■ n 1 
ABCD14°4 
A BCD U' 13 
AF>CDV 3C 
A BCD 1 4 1 7 
A BCD 1 4HQ 
A PCD 1 4 s 3 
A BCD 1 4.0 0 

8H A 2 8 = , P15.e, ABCD1491 


WG24) * U24 - U 24 DOT * P24 * 

1DO*TOLALL ,DTR ,T24T,IGO) 


”OZD = 1 

VuZl . EQ. 1) ID*: ) I = 1 

, m, :i."vr, - v.~, ” ■ ■ 

,’>1,i:;\V7.,r>P,A V.tW 
P"2K,r : ‘•9 , V 2 5 , V 2 7 , A * 


AM28, A29,AM29 
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1 8H 
END 


AM28=, E15.8, 8H 


A 29 =, El 5. 8, 8 H 


AM29 = 


, F15.8) 


Subroutine COFAN 


ABCD1 US 2 
A ECD1 493 


100 


101 


1 


SUBROUTINE COFAN 
IMPLICIT FEAL* 3 (A-H,0-Z) 

LOGICAL SI, FXM2CP 
COMMON /CO MALL/ COM (1062) 

COMMON /COMDAT/ COMD(5423) 

DIMENSION WORD (2) , CNXF(15), PRXF ( 1 5 , 1 5) , W ACXF (15,15) , 

1 ETAXF (15, 15) , NPTF(15), DUMD1(15) 

DIMENSION Q ( 9 ) , WLH(2,2), AWORD(2) 

EQUIVALENCE (WORD(1), COM(1)), (IDES, COM (3) ) , (JDES, COM(4)), 

1 (MODE, COM (6) ) , ( IN IT , COM (7) ) , (MAPEDG, CCM (22) ) , (TOLALL, 

2 COM (23) ) , (H22, COM (34)), (T2DS, COM(91)), (T2, COM(92)), (P2, 

3 COM (93)), (II 2, COM (94) ) , (S2, COM (95) ) , (S22, COM (96) ) , (T22DS, 

4 COM (97)), (T4GU , COM (100)), (T4DS, COM (101)), (PRFCF, COM (121)) 

5 (ETAFCF, COM (122)), (WAFCF, COM (123)), (PCNFDS, COM ( 1 24) ) , 

6 (PRFDS, COM (125)) , (ETAFDS, COM (126) ) , (WAFDS, COM(127)), 

7 (PCNCGU, COM (128)) , (PFF, CO.M(131)), (ETAF, COM (132)), 

8 (ZCDS, COM (13 3) ) , (CNF, COM (134)), (WAFC, COM(135)), 

9 (ZF, COM (136) ) , (PCNF , COM (137)), (PCBLF, COM(138)), 

1 (ZI, COM (139) ) , (PC NI , COM (143) ) , (ZIDS, COM(146)), 

2 ( PCN IDS , COM (14 7)) , (PCN'IGU, CQM(14?)), (T4, COM(156)), 

3 (WFBDS , COM (185)) , (WFE, COM(192)), (T21, COM (263) ) , 

4 (12 IDS, COM (267) ) , (T22, COM (268) ) , (ZC, COM (300) ) , 

5 ( PC NC , COM (30 1) ) , (PCNCDS, COM(303)), (BLF, COM(316)), 

6 (WAF, COM (319)), (P22, COM (375)), (U22, COM (376) ) , 

7 ( V FAN, COM (395) ) , (DUMDl(l) , COM(405)), (WAFP, COM(420)), 

8 (JTRAN, COM (1050) ) , (SI, COM (1055)), (FXM2CP, COM(1059)) 

EQUIVALENCE (CNXF(1), COMD(1)), (PRXF(1,1), COMD(16)), 

1 (KACXF (1,1) , COMD (241) ) , (ETAXF(1,1), COMD (466) ) , 

2 (NCNF, COMD (5296) ) , <NPTF(1), COMD (5297) ) 

DATA AWORD, WLH /4 H COF, 4 H A N , 4H (LO, 4H) , 4H (HI, 4H) 

WORD ( 1 ) = AWORD ( 1 ) 

WORD (2) = AWORD (2) 

IF (SI) GO TO 100 
TSTD = 518.668D0 
PSTD = I.ODO 
RA = . 0252D0 
AJ - 2.719D0 
GO TO 101 
TSTD = 288.149D0 
PSTD = 101325. 0D0 
RA = 286. 9D0 
AJ = 1.0D0 

THETA = DSQRT(T2 / TSTD) 

DELTA = P2 / PSTD 
IF (IDES .NE. 1) GO TO 1 
WAFDS = WAFC * DELTA / THETA 
CNF = PCNF / (100. ODO * THETA) 

IF (ZF .LT. 0 . ODO) ZF = 0. ODO 

IF (ZF .GT. I.ODO) ZF = I.ODO 


ABCD1494 
ABCD1 49^ 
ABCD1496 
ABCD1497 
ABCD1 4 a 3 
ABCD1499 
ABCD15C0 
ABCD1501 
A BCD 150 2 
ABCD1503 
ABCD1 504 
ABCD15C5 
, ABCD1535 
ABCD1507 
ABCD1 593 
ABCD1509 
ABCD1510 
A BCD 1 511 
A BCD 1 51 2 
ABCD1513 
ABCD1 51 4 
ABCD1515 
ABCD1516 
ABCD1517 
ABCD1513 
ABCD151 9 
ABCD1520 
ABCD152 1 
ABCD1522 
/ ABCD1523 
ABCD1 524 
ABCD1525 
ABCD1 526 
ABCD1527 
A BCD 1 5 2 8 
ABCD1529 
ABCD1 530 
ABCD1531 
ABCD1532 
ABCD1533 
ABCD1 534 
ABCD1535 
ABCD1536 
ABCD1537 
ABCD1 538 
ABCD1539 
ABCD1540 
ABCD1 541 
ABCD1542 
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2 


18 


19 

20 
21 


3 


4 


CNFS = CNF 

CALL SEARCH (Z F, CN F, PHF, WA FC, ET A F, C N XF ( 1 ) , N CNF , PR XF ( 1 , 1 ) , 

1 WACXF (1,1) ,ETAXF (1,1) , NPTF ( 1) , 1 5, 1 5, IGO) 

IF ((CNF - CNFS) .GT. .5D0 * TOLALL * CNF) MAPEDG = 1 

IF (IGO .EQ. 1 .OR. IGO .EQ. 2) WRITE (8,12) CNFS, WLH(1,IGO), 

1 WLH(2,IGO) 

WAF = W AFC * DELTA / THETA 

IF (IDES . NE. 1) GO TO 2 

PRFCF = (PRFDS - 1.0D0) / ( PRF - 1.0DC) 

ETAFCF = ETAFDS / ETAF 
WAFCF = WAFLS / WAF 

WRITE (6,13) PRFCF, ETAFCF, WAFCF, T2DS 

PRF = PRFCF * (PRF - 1 . 0 DO ) + 1.0D0 

ETAF = ETAFCF * ETAF 

WAF = WAFCF * WAF 

WAFP = WAF 

WAFC = WAFC * WAFCF 

PCNF = 100. 0D0 * THETA * CNF 

DOMD1 (1) = PCNF 

CALL THCOMP ( PRF, ET AF, T 2 , H2 , S2 , P 2, T 2 2 , H 2 2 , S 2 2, P 2 2) 

IF (VFAN .EQ. 0.0D0) GO TD 21 
Q (2) = O.ODO 

Q (3) = O.ODO 
H22P = H22 

P22DOT = DERIV (4,P22) 

CALL THERMO ( P22 , H22 , T 22 ,S 2 2 , XX 2 , 0 , 0 . 0 DO , 0 ) 

WAF = WAFP - P22DOT * VFAN / T22 / 1.4D0 / PA 
022 = H22 - AJ * RA * T22 
022D0T = DERIV (5,022) 

H22X = (WAFP * H22P - (WAFP - WAF) * 022 - U22DOT * P22 * VFAN / 
1 T22 / RA) / WAF 
ERRW = (H22 - H22X) / H22 

DIB = DSQRT (DABS (H22 / H22X)) 

CALL AFQOIR (Q( 1) ,T22, ERRW, 0 . OD 0 , 2 0 . 0 DO , . IDO* TOLALL, DIR, T22T, IGO) 

GO TO (19,21,20) , IGO 

T22 = T22T 

GO TO 18 

CALL ERROR 

IF (PCBLF .GT. O.ODO) BLF = PCBLF * WAF 
IF (JDES .EQ. 1) GO TO 9 

JDES = 1 

IF (INIT .EQ. 1) GO TO 8 

IF (IDES .EQ. 1) GO TO 6 

IF ( JTBAN .EQ. 1) GO TO 3 
IF (MODE . NE. 2) GO TO 3 

T4 = GOESS (3, Y1 ,Y2, PCNF, PCNFDS, WFB, WFBDS, Y7,Y8,T4DS) 

PCN I = GOESS (8,T4,T4DS, Y3, Y4,Y5,Y6,T22,T22DS,PCNIDS) 

PCNC * GOESS (4,Y1,Y2,PCNI,PCNIDS,WFB, WFBDS, Y7 , Y8 , PCNCD S ) 

GO TO 7 

IF (MODE .EQ. 1) GO TO 5 

IF (MODE .EQ. 0) GO TO 4 

T4 = GOESS (7, Yl,Y2, PCNF, PCNFDS, Y5 , Y6 , T2, T2D S , T4DS) 

PCNC = G0ESS(5,T4,T4DS,Y3,Y4,Y5,Y6,T22,T22DS, PCN CDS ) 

IF (FXM2CP) PCNC = PCNCDS * .99D0 * THETA 


APCD1 543 
ABCD1 5 4 4 
ABCD1545 
ABCD1 546 
APCD1547 
APCD1543 
ABCD1 549 
AECD1 550 
A BCD 1 55 1 
AECD1552 
ABCD1 553 
ABCD1554 
ABCD1 555 
AECD1555 
ABCD1 557 
ABCD1 553 
ABCD1 559 
ABCD1560 
A3CD15S 1 
ABCD1562 
ABCD1 563 
ABCD1 584 

ABCD15S5 
A BCD 1 56 6 
ABCD1567 
A BCD 1 568 
ABCD1559 
ABCD1 570 
ABCD1571 
ABCD1 572 
ABCD1 573 
ABCD1 574 
ABCD1 575 
ABCD1 575 
A BCD 1 5 7 7 
AECD1 573 
ABCD1 579 
ABCD1580 
ABCD1 581 
ABCD1 592 
ABCD1 583 
ABCD1 584 
ABCD1 585 
ABCD1 585 
ABCD1537 
ABCD1 58R 
ABCD1 589 
A3CD1590 
ABCD1591 
ABCD1 592 
ABCD1 593 
ABCD1 594 
ABCD 1 595 
ABCD1596 
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n n 


5 

6 

7 


8 

9 


10 

11 


12 

13 

14 


PCNCG1 = PCNC 
PCNCG2 = PCNCDS 

PCNI = GUESS (9,Y1,Y2,PCNCG1 ,PCNCG2, Y5 , Y6 , T22,T22DS , PCNIDS) 
GO TO 7 

T4 = GUESS (6, Y1 ,Y2, PCNC, PCNCDS, Y5 , Y6 , T22, T22DS , T4DS) 

PCNI = GUESS(8,T4,T4DS,Y3,Y4,Y5,Y6,T22,T22DS, PCNIDS) 

GO TO 7 
T4 = T4DS 
WFE = WFBDS 
T21DS = T21 
ZC = ZCDS 
ZI = ZIDS 
PCNIGU = PCNI 
PCNCGU = PCNC 
T4GU = T4 
INIT = 0 

IF (MODE .NE. 3) GO TO 10 

IF (DABS (CNF - CNFS) . LE. I.ODO * TOLALL * CNFS) GO TO 11 
WRITE (8,14) CNFS, CNF 
CALL ERROR 

PCNF = 100. 0D0 * THETA * CNF 

CALL COINTC 

RETUPN 


FORMAT < 1 3 HO * * * CNF OFF M AP, F 1 0 . 4 , 2 X , A4, A 2 , 1 1 H* * *$$$$$$) 

FORM AT (1 1 H9FAN DESIGN , 1 3 X, 3 H PR FC F = , E 1 5 . 8, PH ET AFCF= , E 1 5. 8 , 

1 8H WAFCF=,E15. 8,3H T2DS=,E15.8) 

FORMAT (10H0CNF WAS= ,E15.3,1lH AND NOW= ,E15.8,12H CHECK PCNF, 
1 1 2 H INPUTf $$$$$) 

END 


A8CD1 597 

ABCD1593 

ABCD1 599 

ABCD1600 

ABCD1601 

ABCD1S32 

ABCD1603 

ABCD1604 

ABCD1605 

ABCD1606 

ABCD1607 

ABCD1608 

ABCD1609 

ABCD1610 

ABCD161 1 

ABCD1612 

ABCD1613 

ABCD1614 

ABCD1P15 

ABCD1615 

ABCD1S17 

ABCD1613 

ABCD1619 

ABCD1620 

ABCD1621 

ABCD1522 

ABCD1623 

ABCD1624 

ABCD1 625 

ABCD1625 

ABCD1627 


Subroutine COHPTB 


SUBROUTINE COHPTB 
IMPLICIT REAL*8 (A-H,0-Z) 
LOGICAL SI, DUMSPL, FXFN2M 
COMMON /COMALL/ COM (1062) 
COMMON /COMDAT/ COMD(5423) 
DIMENSION WORD (2), EPP (9) , 
EIATXH (15, 15) , NPTTFH ( 1 5) 
DIMENSION Q ( 9 ) , AWORD(2), 
EQUIVALENCE (WOED(1), COM ( 
(TOLALL, COM (23)), (EFT (1) 
COM (103) ) , (S5 , COM (104) ) , 

(TFHPCF, COM (114)), (CNHPC 
(DHHPCF, COM (117)), (TFHPD 
(ETHPDS, COM (120)), (HPEXT 
(CNIP, COM (142)), ( ET ATI?, 

(DHTI, COM (145)), (H3, COM 


TFFXH (15) , CNXH (15, 15) , D HTCXH (15,15) 


(S4, COM (158)), (WG4, COM ( 

(T50, COM ( 16 1) ) , (H50, COM 

(WG50 , COM (164)), (FAP50, 

( ETATHP, COM (172)), (DHTCH 


W LO ( 2 ) , WHI ( 
1)), (IDES, 

, COM (24) ) , 
(W35, COM(1 
F, COM (115)) 
S, COM (118)) 
, COM (129)), 
COM (143) ) , 
(153)), (T4, 

159) ) , (FAF4 
(162)), ( S50 

COM ( 1 65) ) , ( 

P, COM (173)) 


2 ) 

COM (3) ) , (NOMAP, COM ( 
(T5, COM (1 02) ) , ( H 5 , 

05) ) , (FAR5, COM (106) 
, (ETHPCF, COM (116)), 
, (CNHPDS, COM (11?)), 
(TFFIP, COM (141) ) , 
(DHTCIP, COM (144)), 
COM (156)), (H4 , COM ( 

, COM (160) ) , 

, COM (163)), 

CNHP, COM ( 171) ) , 

, (DHTC, COM (174)), 


ABCD1623 
ABCD1629 
ABCD1630 
A BCD 1 6 3 1 
ABCD1532 
ABCD1 633 
ASCD1634 
A3CD1635 
A8CD 1 63 5 
A3CD1637 
ASCD1 633 
ABCD1 639 
ABCD 1 64 C 
A3CD1 64 1 
A BCD 16 4 2 
157) ) , AHCD1 643 
ABCD1 644 
ABCD1645 
ABCD1 645 
A 3CD1 64 7 


2 n ) ) 
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100 

101 

1 


2 

102 


3 (TFFHP, COM ( 1 75) ) , (H21, COM(264)), (PCNC, COM (301)), ABCD1643 

4 (BLHP, COM (313)), (XNHP, COM(372)), (P4, COM(381)), ABCD1649 

5 (P50, COM (383) ) , (050, COM (334) ) , (P5, COM (385) ) , ABCD1650 

6 ( VHPTRB, COM (399)), (WACP, COM (422)), (XNHPDS, COM (423)), ABCD1651 

7 (PMIHP, COM (426) ) , (ISPOOL, COM (1044)), (SI, COM{1055)), ABCD1652 

8 (DUMSPL, COM ( 1057) ) , (FXFN2M, COM(1058)) ABCD1653 

EQUIVALENCE (TFFXH(I), COMD{3226)), (CNXH(1,1), COMD(3241)), ABCD1654 

1 (DHTCXH (1,1) , COMD (3466) ) , (ETATXH (1,1) , COMD (369 1 ) ) , ABCD1655 

2 (NTFFSH, COMD (5376) ) , (NPri’FH(l), COMD(5377)) ABCD1655 

DArA AWORD, WLO, WHI /4HC0HP, 4HTB , -4H (LO, 40) , 4H (HI, ABCD1657 

1 4H) / A3CD1658 

WORD ( 1 ) = AHORD(I) ABCD1659 

WORD (2) = AWORD ( 2) ABCD1660 

IF (SI) GO TO 100 A BCD 1661 

RA = . 0252D0 ABCD1652 

AJ = 2.719D0 ABCD1663 

CON FAC = 1,4091 D-5 A3CD1664 

GO TO 101 ABCD1665 

RA = 286. 9D0 ABCD1666 

AJ = 1.0D0 ABCD1657 

CON FAC = 1.0966D-2 ABCD1668 

IF (ISPOOL ,EQ. 1) GO TO 3 ABCD1659 

THDE = DSQRT (T4 ) / PCNC ABCD1670 

IF (IDES ,EQ. 0) GO TO 1 ABCD1671 

CNHPCF = CNHPDS * THDE ABCD1672 

CNHP = CNHPCF / THDE ABCD1673 

CNHPS = CNHP A BCD 16 7 4 

TFFHPS = TFFHP ABCD1675 

CALL SEARCH (- 1 . DO , TFFH P ,C N HP, DHTCH P, ET AT HP , TFFX H ( 1 ) , NT FFS H, ABCD1676 

1 CNXH (1, 1) , DHTCXH (1,1), ETATXH (1,1) , NPTTFH ( 1 ) ,15,15,130) ABCD1677 


IF (IGO - SQ. 

1 .OR. IGO . 

EQ. 

11 .OR. 

IGO . 

EQ. 

21) 

ABCD1679 

1 WRITE (8,9) 

TFFHPS , WLO 






ABCD1 679 

IF (IGO .EQ. 

2 .OP. IGO . 

EQ. 

12 .OR. 

IGO . 

EQ. 

22) 

ABCD1 630 

1 WRITE (8 r 9 ) 

TFFHPS , WHI 






ABCD1681 

IF (IGO .EQ. 

10 .OR. IGO 

. EQ. 

11 .OR. 

IGO 

.EQ. 

12) 

A3CD1682 

1 WRITE (8,10) 

CNHPS , WLO 






ABCD1 3 3 

IF (IGO .EQ. 

20 .OR. IGO 

. EQ. 

21 .OR. 

IGO 

. FQ. 

22) 

ABCD1684 

1 WRITE (8,10) 

CNHPS, WHI 






ABCD1 685 

IF (IGO -NE. 

7) GO TO 2 






ABCD168S 

CALL ERROR 







ABCD1687 

RETURN 







ABCD1683 

NOMAP = 0 







ABCD1689 

TFHCAL = WG4 

* DSQRT (T4) 

/ (1 4. 5 9 6 DO 

* P4 ) 



ABCD1690 

BTOEXT = 0.706705D0 * HPEXT 





ABCD1691 

IF (.NOT. SI) 

GO TO 102 






ABCD1692 

TFHCAL = WG4 

* DSQRT (T4) 

/ P4 





ABCD1693 


BTOEXT = HPEXT ABCD1694 

XNHP = XNHPDS * PCNC / 100. 0D0 A3CD1695 

XNHDOT = DEB IV ( 1 , XN HP) ABCD1695 

DHTCC = (BTOEXT + HACP * (H3 - H21) + CONFAC * PMIHP * XNHP * ABCD1697 

1 XNHDOT) / (WG4 * T4) ABCD169S 

IF (IDES .EQ. 0) GO TO 5 ABCD1699 

TFHPCF = TFHPDS / TFHCAL ABCD170C 

DHHPCF = DHTCC / DHTCHP ABCD1701 
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6 

7 

18 


19 

20 
21 

8 

C 


ETHPCF = ETHPDS / ETATHP 

WRITE (6,11) CNHPCF,TFHPCF, ETHPCF, D HHPCF 

TFHCAL = TFHPCF * TFHCAL 

DHTCHP = DHHPCF * DHTCHP 

ETATHP = ETHPCF * ETATHP 

DHTC = DHTCC * T4 

ERR ( 1 ) = (TFHCAL - TFFHP) / TFHCAL 
ERR (2) = (DHTCC - DHTCHP) / DHTCC 

CALL THTURB (DHTC , ET AT H P ,F A R4 , H4 , S4 , P4 , T50, H50 , S 50 , P5 0) 

IF ( BLHP .LE. 0.0D0) GO TD 6 

FAR 5 0 = FAR4 * WG4 / (WG4 + BLHP * (FAR4 + 1.0D0)) 

WG50 = WG4 + BLHP 

H50 = (BLHP * H3 + WG4 * H50) / WG50 
CALL THERMO ( P5 0 , H50 , T50 , S5 0 , XX2 , 1 , F AR50 , 1) 

GO TO 7 
FAB5C = FAR4 
WG50 = WG4 

IF ( VHPTRB .EQ. 0.0D0) GO TO 21 
Q (2) = 0.0D0 
Q (3) = 0.0D0 
HG50P = WG50 
H50P = H50 

P50DOT = DERIV ( 1 2,P50) 

CALL THERMO (P5 0 ,H50 , T50 ,S5 0 , XX2 , 1 , F A R50 , 0) 

WG50 = WG50P - P50DOT * VHPTRB / T50 / 1.4D0 / RA 
U50 = H50 - RA * AJ * T50 
U50 DOT = DERIV (13, U50) 

H50X = (WG50P * H50P - (W35CP - WG50) * 050 - U50DOT * P50 * 

1 VHPTRB / T50 / RA) / WG50 
EREW = ( H50 - H50X) / H50 
DIR = DSQRT (DABS (H50 / H50 X ) ) 

CALL AFQUIR (Q ( 1 ) , T5 0 , EPFW , 0 . 0D0 , 2 0 . OD 0 , . 1 D 0*TOLALL ,D I R , T5 OT, IGO) 

GO TO (19,21,20) , IGO 

T50 = T50T 

GO TO 18 

CALL ERROR 

IF (FXFN2M .OR. DOMSPL) GO TO 8 

CALL COIPTB 

RETURN 

P5 = P50 

H5 = H50 

T5 = T50 

S5 = S50 

FAR5 = FAR50 

WG5 = WG50 

SET MIDDLE TORBINE PARAMETERS TO ZERO, NOT OSED 

TFFIP = 0.0D0 

CNIP = 0.0D0 

DHII = 0.0D0 

DHTC IP = O.ODO 

ETATIP = O.ODO 

CALL COLPTB 

FETURN 


AECD1702 
ABCD1703 
ABCD1 704 
ABCD1 705 
ABCD1 706 
A BCD 1 707 
ABCD1708 
ABCD1709 
A BCD 1710 
ABCD171 1 
ABCD1712 
ABCD1713 
ABCD1714 
ABCD 1 71 5 
ABCD1715 
ABCD 1717 
ABCD1719 
ABCD 1 719 
ABCD1720 
A BCD 1 72 1 
ABCD1722 
ABCD1 723 
ABCD1 724 
ABCD 1725 
ABCD1 725 
ABCD 1727 
ABCD1 728 
ABCD 1 729 
ABCD1 730 
ABCD1 731 
ABCD 1732 
ABCD1 733 
ABCD1734 
ABCD1735 
ABCD1735 
ABCD1 737 
ABCD 1739 
ABCD 1739 
ABCD1 740 

ABCD1 7'+1 

ABCD1 742 
ABCD1743 
ABCD1 744 
ABCD1 745 
ABCD1746 
ABCD1747 
ABCD1 748 
ABCD1749 
ABCD1750 
ABCD1 751 
ABCD1752 
ABCD1 753 
ABCD1 754 
ABCD 1 755 
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FORMAT (19H0*****TFFHP OFF M AP, F 1 C . 4 , 2 X , A4, A 2, 1 1 H***** $ $$$ $$) 

10 FORMAT ( 1 9 HO***** CNHP OFF M A P, F 1 0 . 4 , 2 X , A4 , A 2 , 1 1 H**** * f $$$ $ $) 

11 FORM AT (20H0H. P. TURBINE DE5IGN,5X,7HCNHPCF=, E15.8, q H T FHPCF= , 
1 B1 5. 8, 8H ETHPCF=, E15.8,8H DH HP I F= , E 1 5 . 8) 

END 

Subroutine COINLT 


A3CD1 756 
A3CD1757 
ABCD1 758 
P8CD1759 
ABCD175C 
P BCD 1 76 1 
A BCD 1 76 2 


10 


11 


SUBROUTINE COINLT 
IMPLICIT REAL*8 (A-H,0-Z) 
LOGICAL SI 

COMMON /COMALL/ COM (1062) 
DIMENSION WORD ( 2) 

DIMENSION AWORD (2) 

EQUIVALENCE (WORD(1), COM ( 1) ) , 
(INIT, COM (7 ) ) , (IAMTP, COM(9)) 
COM (33)), (T2DS, COM (91)), (T2, 

COM (94)), (S2, COM (95)), (T4DS, 

(ZF, COM (136) ) 

(SI, COM (151) ) 


(IDES, COM ( 3) ) , (MODE, COM (6)), 

, (TOLALL, COM (23)), (PI, 

CD M (9 2) ) , ( P2, COM (93)), (H2, 

COM (101)), (PCNFDS , COM (1 24 ) ) , 
(PCNF , COM (137) ) , (T 1 , COM(149)), (Hi, COM(15C)) 
(T4 , COM ( 1 56) ) , (WF3DS, COM(185)), (ZFDS, 


COM (186)) , (ETAR, COM(187)), (WFB, COM(192)), (CS, COM(194)) 
(AM, COM (195)), (ALTP, COM (195)), (PCNFGU, COM (199)), 

(PCNC, COM (3 01)) , (PCNCDS, COM (303) ) , (DELT1 , COM(429)), 

(SI, COM (1055) ) 

DATA AWORD /4HCOIN, 4 HLT / 

WORD (1 ) = AWORD (1) 

WOR D ( 2) = AWORD { 2) 

IF (SI) GO TO 10 
AJ = 77 9 , 26 DO 
G = 32. 174 049D0 
REP59 = 2. 085553 1D07 
R = 1.986375D0 
TSPD = 518.668D0 
GO TO 11 


ABCD1753 
ABCOI 764 
ABCDT’6 5 
ABC91 7 65 
ABCD1 757 
A BCD 1 76 9 
ABCD1759 
ABCD1 770 
ABCD1 "’71 
ABCD1772 
, ABCD1773 
A3CD1 ■’74 
ABCD1 7 75 
A BCD 1 776 
ABCD1 7 7 7 
ABCD1 779 
A BCD 1 779 
A BCD 1 790 
A BCD 17 9 1 
A BC D 1 7 n 2 
A B C D 1 7 3 3 
ABCD 1 794 
ABCD1795 
ABCD1 786 
ABCD1737 
ABCD1 7°*3 


AJ = I.ODO 



ABCD1799 

G = 1 . 0D0 



A BCD 1790 

REF59 = 6.3567658D06 



ABCD1791 

R = 8314. 34D0 



ABCD 1 7 92 

TSTD = 288.149D0 



ABCD1 793 

ALT = ALTP * REF59 / (REF59 - ALTP) 



ABCD 1 794 

GAJ2 = 2.0D0 * G * AJ 



ABCD1 733 

CALL ATMOS (A LT , T 1 STD , XX 1 , XX2 , X X 3 , D ELT A, CS, 

XX4, 

iier) 

ABCD1 796 

PI = DELTA 


ABCD1 797 

IF (SI) PI = 101325. 0D0 * DELTA 



ABCD 1 793 

T1 = T1STD 



ABCD 1 7 99 

IF (IAMTP .EQ. 2) T1 = T1STD + DELT1 



ABCD 1 P 0 0 

IF (IAMTP .EQ. 5) CALL RAM2 (AM, ETAR) 



ABCD 1801 

IF (IAMTP .NE. 1 .AND. IAMTP .ME. 5) CALL 

RAM 

(AM, ETAR) 

ABCD1 902 

FAR = 0.0D0 


ABCD 1803 

CALL PROCOM ( FAR, T 1 , CS , XX2 , XX3 , R 1 , P H1 1 , H 1 ) 



ABCD1 804 

SI = PH1 1 - R1 * DLOG (DELTA) 



ABCD1P05 

H2 = HI + (AM * CS) ** 2 / G A J2 



A BCD 1 8 0 6 
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in *= 


P2r = i.odo 

IP (SI) P2T = 101325. 0D0 
DO 1 I = 1,50 

CALL THERMO ( P 2T , H2, T 2 T, S2 T , A W, 0 , 0 . 0DO , 1 ) 

IF (DABS (S2T - SI) . LE. .IDO * TOLALL * SI) 


GO TO '2 


P2T = PI * DEXP ( (AS / R) 
1 DLOG (P2T / PI) ) ) 

CALL ERROR 
RETURN 

IP (IAMTP . EQ. 3 
P2 = ETAS * P2T 
ITHEP = 1 


* ( (S2T - SI) ♦ (R / AW) * 


OR. IAMTP . EQ. 4) ETAP = P2 / P2T 


ABCD1 807 
ABCD1PC3 
ABCD1 BO? 
ABCD1810 
ABCD1R1 1 
ABCD1B12 
ABCD 1 R 1 3 
A BCD 1 8 1 11 
ABCD 1815 
ABCD1 PI 5 
APCD1 81 7 
ABCD1 81 3 


IF (IAMTP .EQ. 4) 

ITHER = 0 

AECD1 31 9 

CALL THERMO (P2,H 2 

,T2,S2,XX5,0,0.0D0, IT HER) 

A BCD 1 8 20 

IF (INIT .EQ. 1) 

RETURN 

A BCD 1 82 1 

IF (IDES .EQ. 1) 

GO TO 3 

AFCD1922 

IF (MODE .EQ. 3) 

GO TO 4 

ABCD 1 s 23 


PCNF = GUESS (MODE, T4 ,T4DS, PCNC, PCVCDS , WFB, WFBDS , T2, T2DS ,PCNFDS) A3CD1824 
PCNFGU = PCNF A3CD1825 
GO TO 4 ABCD1826 
PCNF = PCNFDS * DSQRT (T2 / TSTD) ABCD1827 
PCNFGU = PCNF A BCD 1 82 8 
T2DS = T2 ABCD1929 
ZF = ZFDS ABCD1930 
RETURN A BCD 1931 
END A BCD 1 Q 32 

Subroutine COINTC 


AFT FA N , FAN 


SUBROUTINE COINTC 
IMPLICIT FEAL*8 (A-H,0-Z) 

LOGICAL 31, DUMSPL, FXFN2M, 

COMMON /COMALL/ COM (1062) 

COMMON /COMDAT/ COMD(5423) 

DIMENSION WORD (2) , CNXIN(15), PRX I N ( 1 5 , 1 5) , W ACX IN ( 1 5 , 1 5 ) , 

1 ETAXIN (15, 15) , CNXX I ( 1 c ) , PF XXI ( 1 5 , 1 5 ) , WACXXI ( 15, 15) , 

2 ETAXXI (15, 15) , NPT I ( 1 5) , NPTXI(15) 

DIMENSION Q(9), WLH(2,2), AWORD(2) 

EQUIVALENCE (WOP.D(I), COM ( 1) ) , (IDES, COM(3)), (MAPFDG, COM (22) ) , 

1 (TOLALL, COM (23)), (H2 2, COM (34)), (12, COM( Q 2)), (P2, CCM{?3)), 

2 ( H 2 , COM (94)), (S 2, COM (95)), (S22, COM (96)), (T27DS , COM ( l n ) ) , 

3 (CNF, COM (134) ) , (7,1, COM(139)), (PCNI, COM (140)), (PCNIDS, 

4 COM (147)), ( PRICF , COM (176)), (ETAICF, COM (177)), (WAICF, 

5 COM (178) ) , (PFIDS, COM (180)), (jiTAIDS, COM(IBI)), (WATDS, 

t COM (182) ) , (WAICDS, COM(153)), ( FT AI, COM(1B8)), (PSI, CO"(1B9)) ( 

7 (KAC, COM (191)), (T21, COM (263)), ( H 2 1 , CO* (264)), 

9 (S 2 1 , COM (265) ) , (WA21, COM(266)), (T22, COM(268)), 

9 (WA22, COM (269)), (WA32, COM (271)), (PCBLI, COM (304)), 

1 (PCBLID, COM (305)), (CNI, COM(30°)), ( WACI , COM (310)), 

2 ( W A I , COM (311)), (BLI, COM (312) ) , (DLF, CO^ (316) ) , 

3 (WAF, COM (319)), (P22, COM (375) ) , (P21, COM (377)), 

(U21, COM (378) ) , (VINTC, COM(396)), (WAIP, COM(421)), 

(IS POOL , COM (1044) ) , (SI, COM (1055) ) , (DUMSPL, COM (1057)), 

5 (FXFN2M, COM (1058) ) , (AFTFAS, CO* ( 1 060) ) , (FAN, COM(IDPI)) 


ABCD 1833 
A BCD 1 8 34 
A3CD1 835 
ABCD1 836 
ABCD1 c 37 
ARCD 1 83 R 
A8CD1 «3 Q 
ABCD1 °4 n 
A BCD 1 ° 4 1 
A 3 C D 1 8 4 2 
A ? C D 1 84 3 
ABCD1 844 
A3CD1R4 5 
A3CD1 846 
A3CD1647 
A BCD 1 84 8 
APCD1 84? 
A3CD1 8 5 8 
A BCD 1 8 5 1 
APCD1 852 
ABC01 853 
ABCD1 Q 5« 
ABCD 1 935 
ABCD1 °5 ? 
A9CD1857 
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ICO 


101 


1 


102 

2 

C 


3 


EQUIVALENCE (CNXIN(I), COMD(691)), (PRXIN(1,1), COMD (706) ) , 

1 (W ACXIN (1,1) , COMD (931)), (ETAXIN (1,1) , COMD ( 1 1 56) ) , 

2 (CNXXI(I), COMD (1381)) , (PRXXI(1,1), COMD(1396)), 

3 ( H ACXXI (1,1) , COMD (1621)) , (Er A XXI ( 1 , 1) , COMD(1846)), 

4 (NCNI, COMD (5312)), (NPTI(1), COMD(5313)), (NCNXI, COMD(5328)) 

5 (NPTXI ( 1 ) , COMD (5329) ) 

DATA AWOfiD, HLH /4HCOIN, 4 HTC , 4H (LO, 4 H) , 4 FI (HI, 4H) 
WORD ( 1) = AWORD(I) 

WORD (2) = AWORD (2) 

IF (SI) GO TO 100 
TSTD = 518.668D0 
PSTD = 1 . 0 DO 
RA = . 0252D0 
AJ = 2.719D0 
GO TO 101 
TSTD = 288. 149D0 
PSTD = 101325. 0D0 
RA s= 286. 9D0 
AJ = 1.0D0 

IF (.NOT. AFTFAN) GO TO 1 

T22S = T22 

H22S = H22 

S22S = S22 

P22S = P22 

T22 = T2 

H 22 = H2 

S22 = S2 

P22 = P2 

THETA = DSQRT (T22 / TSTD) 

DELTA = P22 / PSTD 

IF (.NOT. FAN) WAI = WAF - PLF 

IF (IDES .NE. 1) GO TO 2 

PCN I = PCNIDS * THETA 

FKI = PRIDS 

PCBLI = PCBLID 

IF (FAN) GO TO 102 

WAICDS = WAI * THETA / DELTA 

DUMSPL = .TRUE. 

WACI = WAICDS 

WAIDS = WACI * DELTA / THETA 
ET A I = ETAIDS 

IF (.NOT. PXFN2M) GO TO 3 

FAN AND MIDDLE SPOOL ROTATE AT SAME SPEED 
SPDFAN = CNF * DSQRT (T2 / TSTD) 

CNI = SPDFAN / THETA 

PCN I = 100. 0D0 * THETA * CNI 

IF (IDES .EQ. 1) PCNIDS = PCNI / THETA 

CNI = PCNI / (10C.0DC * THETA) 

ZI = DMAX1 (ZI , 0.0D0) 

ZI = DMIN1 (ZI , 1 . 0D0) 

CNIS = CNI 

IF (.NOT. DUMSPL) GO TO 4 
CALL INDUMY ( CN I , Z I , W A IC D3 , IDES) 

CALL SEARCH ( ZI , CNI , P R I , WA C I , ET AI , CNXXI (1) , NCNXI, PRXXI (1,1), 


ABCD1858 
ABCD1 859 
ABCD1860 
A3CD1 861 
, ABCD1862 
ABCD1363 
/ ABCD1864 
ABCD1S55 
ABCD1 866 
ABCbl 857 
ABCD1 863 
ABCD1859 
ABCD1 870 
ABCD 1 871 
ABCD1 372 
ABCD 1873 
ABC01 874 
ABCD1875 
ABCDl 875 
ABCD 1 877 
A3CD1 879 
ABCD1879 
ABCDl 830 
ABCDl 88 1 
ABCDl 882 
ABCDl 893 
ABCDl 394 
ABCDl 385 
ABCDl 935 
ABCDl 837 
A BCD 1 89 9 
ABCDl 8 3 9 
ABCDl 390 
ABCDl 891 
ABCD 13 9 2 
ABCDl 893 
ABCDl 394 
ABCDl 895 
ABCDl 395 
ABCDl 897 
ABCDl 393 
ABCD1399 
ABCDl 900 
ABCD 1901 
A3CD1 902 
AECD 1 Q 0 3 
ABCD 1904 
ABCD 19nc, 
ABCDl 905 
ABCDl Q 0 7 
ABCDl 903 

ABCD 1 9^3 
ABCDl 910 
ABCDl 9 1 1 
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4 

5 


6 

7 


18 


19 

20 

21 


1 W AC XXI (1,1) ,£TAXXI (1,1) ,NPTXI(1) , 15,15, IGO) 

GO TO 5 

CALL SEARCH ( Z I , CN I , PR I , W AC I , Er A I, C NX I N ( 1 ) , N CN I , PR X IS { 1 , 1 ) , 

1 iff AC X IN (1,1), ETAXIN ( 1 , 1 ) , N P TT (1 ) , 15, 15, IGO) 

IF ((CNI - CNIS) . GT* . 5D0 * TOLALL * CNI) HAPEDG = 1 
IF (IGO .EQ. 1 .OH. IGO .E Q. 2) WRITE (8,12) CN IS , WL H ( 1 , IGO) , 

1 W L H ( 2 , IGO) 

IF (.NOT. FAN) WACt = WAI * THETA / DELTA 
WAI = WACI * DELTA / THETA 
WA22 = WAI 

IF (IDES .NE. 1) GO TO 7 
T22DS = T22 

IF (AFTFAN) T22DS = T22S 
ETAICF = ETAIDS / ETAI 
WAICF = WAIDS / WAI 

PRICF = (PRIDS - 1.0D0) / (PFI - 1 . ODO) 

IF (.NOT. D (IMS PL) GO TO S 
PRICF = 1.0D0 
ETAICF = 1 .ODO 
WAICF = 1.0D0 

WRITE (6,13) PRICF, ETAICF, WAICF, T22DS 

PRI = PRICF * (PEI - 1.0D0) + I.ODO 

ETAI = ETAICF * FTAI 

WAI = WAICF * WAI 

WAIP = WAI 

WACI = WACI * WAICF 

WA22 = WAI 

CALL THCOMP (PR I , ET AT , T 22, H 22, S 2 2 , P 22 , T 2 1 , H 2 1 , S 2 1 , P 21 ) 

IF ( VINTC .EQ. 0 . ODO) GO TO 21 
Q (2) = O.CDO 

Q(3) = O.ODG 

H21P = H21 

P21 DOT = DER IV (6 , P2 1) 

CALL THERMO ( P2 1 , H2 1 , T2 1 ,5 2 1 , XX2 , 0 , 0 . 0 DO , 0) 

WAI = WAIP - P 2 1 DOT * VINTC / T21 / 1.4D0 / PA 
U21 = H21 - AJ * RA * T21 
U2 1 DOT = DEE IV (7, U2 1 ) 

H21 X = (WAIP * H 2 1 P - (WAIP - WAI) * U21 - U21DOT * P21 * VINTC / 
1 T21 / RA) / WAI 
ERPW = (H21 - H2 1 X) / H21 

DIR = DSQRT (DABS (H2 1 / B21X)) 

CALL AFQUIR (Q ( 1) , T 2 1 , EF RW , 0. CD 0 , 2 0 . ODO , . 1 D0*TOLALL ,DIR,T2 IT, IGO) 

GO TO (15,21,20), IGO 

T21 = T21T 

GO TO 18 

CALL ERROR 

IF (.NOT. DUMSPL) GO TO 9 

PRI = I.ODO 

ETAI = I.ODO 

T21 = T22 

H21 = H22 

S21 = S22 

P21 = P 22 

IF (ISPOOL .EQ. 1) WA2 1 = WAI 


ABCD1912 
ADCD1913 
ABCD1 914 
A BCD 1 915 
ABCD 1 916 
A BCD 1 9 1 7 
ABCD1 91 3 
ABCD 1919 
ABCD1 °2C 
ABCD 1921 
A3CD1 °22 
ABCD 1 923 
ABCD1 524 
ABCD1925 
A BCD 1 925 
AECD1927 
A3CD1 923 
ABCD1 °24 
ABCD 1 93 C 
ABCD1931 
ABCD1932 
A BCD 1 Q 3 3 
A BCD 1 9 34 
AECD1 °3 C 
ABCD1936 
ABCD 1 9^7 
ABCD1933 
A3CD1939 
AECD1940 
A BCD 1941 
ABCD 1942 
A BCD 1 Q 4 3 
ABCD1944 
ABCD1 945 
ABCD1945 
AECD1947 
AECD1 948 
AECD1949 
ABCD 1 950 
ABCD1951 
ABCD 1 952 
ABCD 1 953 
ABCD1954 
ABCD1955 
ABCD 1 955 
ABCD1 957 
ABCD 1958 
ABCD 1 9 59 
ABCD1950 
ABCD 196 1 
ABCD1962 
ABCD1 963 
ABCD1964 
A BCD 1 °5 5 
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non 


8 


9 


10 


11 


12 

13 

14 


IF (IDES .NE. 1) GO TO 9 
BLI = PCELT * WAI 
Wa2 1 = WA22 - BLI 
WA32 = BLI 

IF (FAN .OR. IDES .EQ. 1) WAC = WA21 

IF (DABS (CM I - CNIS) . LE. I.ODO * TOLALL * CNTS) GO TO 10 
WRITE (8,14) CNIS,CNI 
CALL ERROR 

PCNI = 100. 0D0 * THETA * CNI 

IF {.NOT. AFTFAN) GO TO 11 

T22 = T22S 

H 22 = H22S 

S 22 = S22S 

P22 = P22S 

CALL COCOMP 

RETURN 


FORMAT (19H0* * * CNI OFF M A P, F 1 0 . 4 , 2X , A4, A 2, 1 1 H* * *$$$$$$) 
FORMAT (20H0MIDDLE SPOOL DESIGN, 4X,8H PRICF= , E 1 5. 8 , 8H ETATCF=, 

1 E15.8,8H WAICF=,E15.8,8H T22DS = , E 15. 8) 

FORMAT ( 1 0 HOCNI WAS= ,E15.9,11H AND NOW= ,E15.8,12tI CHECK PCNI, 
1 1 2 H INPUT$$$S5$) 

END 


A3CD1 966 
AECD1957 
ABCDl 969 
ABCD1969 
ABCD1 970 
ABCD1 971 
A BCD 1 97 2 
ABCD1 °7 3 
ABCD1974 
ABCDl 975 
AECD1 975 
A BCD 1 977 
ABCDl 973 
ABCDl 979 
ABCDl 930 
ABCDl 98 1 
ABC01932 
ABCDl 993 
ABCDl 994 
A3CD1985 
ABCDl 986 
ABCDl 997 
ABCDl 999 
ABCDl 935 
ABCDl 990 


Subroutine COIPTB 


SUBROUTINE COIPTB 
IMPLICIT u EA L* 8 (A-H,0-Z) 

LOGICAL SI, FXM2CP, AFTFAN 
COMMON /COMALL/ COM (1062) 

COMMON /COMDAT/ COMD(5423) 

DIMENSION WORD (2) , ERR (9) , TFFXH(15), 

1 ETATXH (15, 15) , TFFXI(15), CNXI{15,15) 

2 EIATXI (15, 15) , NPTTFH (15), NPTTFI(15) 

DIMENSION Q (9 ) , AWORD (2) , WLO(2), WHI(2) 

EQUIVALENCE (WOKD(I), COM ( 1) ) , (IDES, COM(3)), (NOMAP, COM(2D)) 
1 (TOLALL, C OM (23 ) ) , (ERR (1 ) , COM (24)), (H22, COM(34)), (H2, 


CNXH(15, 15) , DHTCXH (1 5, 15) 
DHTCXI (15,15) , 


COM (94) ) 

COM (105) ) , 

COM (119)) , 

COM (140) ) , 

COM (143) ) , 

(T50, COM (161)), 
(WG5 0 , COM (164) ) 


(T5, COM (10 2) ) , (H5, COM (103)), <S5, CON (104)), (WG5, 

(FAR5, COM (106) ) , (TFHPDS, COM(118)), (CNHPDS, 

(ETHPDS , COM (120)), (HPEXT, COM (129)), (PCNI, 

(TFFIP, COM (141)) , (CNIP, COM (142)), (ETATIP, 

(DHTCIP, COM (14 4)), (DHTI, COH(145)), (H3, COM (153)), 

(HSO, COM (162)), (S50, COW<163)), 

(FAR50, COM (165) ) , (H21, COM(264)) 


(TFIPDS, COM (278)) , (CNIPDS, COM(279)), (ETIPDS, COM (280)), 

( T FIPCF, COM (285)), (CNIPCF, C0M(286)), (ETIPCF, COM (287) ) , 
(DHIPCF , COM (288)), (BLIP, COM (314)), (XNIP, COM (373) ) , 

(P50, COM (383)), (P5, COM (385)), (U5, COM (386)), 

{ VIPTRB , COM (400) ) , (WAIP, COM(421)), (WACP, COM(422)), 
(XNIPDS, COM (424) ) , (PMIIP, COM(427)), (SI, COM(1055)), 
(FXM2CP, COM ( 1059) ) , (AFTFAN, COM( 1060)) 

EQUIVALENCE (TFFXH(I), COMD(3226)), (CNXH(1,1), COMD(3241)), 


ABCDl 991 
ABCDl 992 
ABCDl 993 
ABCDl 9 9 '4 
APCD1995 
, ABCDl 996 
ABCDl 997 
ABCDl 99 9 
ABCDl 999 
ABCD2000 
A BCD 2 00 1 
ABCD2002 
ABCD2003 
ABCD2004 
ABCD2005 
ABCD2006 
ABCD2007 
ABCD200B 
ABCD2009 
ABCD2010 
ABCD201 1 
ABCD2012 
ABCD201 3 
ABCD201 4 
ABCD201 5 
ABCD2016 
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134 


1 (DHTCXH (1,1) , COMD (3466 ) ) , (ETATXH (1, 1) , COMD(3691)) 

2 (TFFXI(I), COMD(3916)), (CNXI(1,1), COMD(3931)), 

3 (DHTCXI (1,1) , COMD (4156)) , (ET ATXI (1,1) , COMD(4381)) 

4 (NTFFSH, COMD (5376)), (NPTTFH(I), COMD (5377)), 

5 (NTFFSI, COMD (5392)), (NPTTFI(I), COMD(5393)) 


WLO, WHI /4HC0IP, 4 HI B 
100 


100 


101 


DATA AWORD 
1 4H) / 

IF (SI) GO TO 
RA = . 0252D0 
AJ = 2.719D0 
CON FAC = 1.409 ID-5 
GO TO 101 
RA = 286. 9D0 
AJ = 1.0D0 
CONFAC = 1.0966D-2 
H22SAV = H22 
IF (AFTFAN) H22 = 

WORD ( 1 ) = A WORD ( 1 ) 

WOR D ( 2) = AWORD { 2) 

THDE = DSQRT (T50) / PCNI 

IF (IDES . EQ. 0) GO TO 1 
CNIPCF = CNIPDS * THDE 

CNHPDS 


4 H (LO, 4H) 


4H (HI, 


H2 


* THDE 


IF (FXM2CP) CNIPCF 

CNIP = CNIPCF / THDE 
CNIPS = CNIP 
TFFIPS = TFFIP 
IF (FXM2CP) GO TO 2 

CALL SEARCH ( - 1 . 0D0 , TFFIP, C NT P , DHTC IP , ETA TI P , TFF XI ( 1 ) , NTFF SI , 
1 CNXI (1 , 1) , DHTC XI (1,1) , ETAT XI (1 , 1 ) , NPTT FI ( 1 ) , 15 , 1 5, IGD ) 

GO TO 104 

CALL SEARCH (- 1 . 0D0 , TFF IP, CNIP, DHTCIP, ETATI P ,TFFXH ( 1 ) , NTFFSH, 
1 CNXH (1 ,1) , DHTCXH (1,1) , ETATXH (1,1), NPTTFH ( 1) ,15,15, IGO) 


ABCD201 7 

ABCD20 1 3 

ABCD201 9 

ABCD2020 

ABCD202 1 

ABCD2022 

ABCD2023 

ABCD2024 

ABCD2025 

ABCD2026 

ABCD2027 

ABCD2C28 

ABCD2029 

ABCD2030 

ABCD203 1 

ABCD2032 

ABCD2033 

ABCD2034 

ABCD2035 

ABCD2036 

ABCD2037 

ABCD2038 

ABCD2 03 P 

ABCD204 3 

A BCD 2 04 1 

ABCD20U2 

ABCD204 3 

ABCD2 n 4 4 

A BCD 2 04 5 

ABCD2046 

ABCD2047 

ABCD204B 


IF (IGO .EQ. 1 .OP. IGO .EQ. 11 .OP. 

IGO .EQ. 

21) 

ABCD20U? 

1 WRITE (8,9) TFFIPS, WLO 



ABCD2053 

IF (IGO . EQ. 2 .OR. I GO .EQ. 12 .OR. 

IGO .EQ. 

22) 

A3CD2051 

1 WRITE (8,9) TFFIPS, WHI 



ABCD2052 

IF (IGO .EQ. 3C .OR. IGO . EQ. 11 .OR. 

IGO . EQ. 

12) 

ABCD2053 

1 WRITE (8,10) CNIPS, WLO 



ABCD2054 

IF (IGO .EQ. 50 .OR. IGO . EQ. 21 .OR. 

I vjO * E Q . 

22) 

ABCD2055 

1 WRITE (8,10) CNIPS, WHI 



ABCD2056 

IF (IGO .NE. 7) GO TO 3 



ABCD2057 

CALL ERROR 



A3CD2C58 

RETURN 



AECD2059 

NOMAP = 0 



A BCD2C6 0 

TFICAL = WG50 * DSQRT (T50) / (1U.696D0 * P50) 


ABCD206 1 

IF (SI) TFICAL = WG50 * DSQFT (T50) / 

P50 


ABCD205 2 

XNIP = XNIPDS * PCNI / 100. 0D0 



ABCD2063 

XNIDOT = DEBIV (2, XNIP) 



ABCD2064 

BTUEXT = . 706 7 05 DO * HPEXT 



ABCD2065 

IF (SI) ETUEXT = HPEXT 



ABCD2055 

DHACEL = CONFAC * PKUP * XNIP * XNIDOT 


ABCD2067 

DHTIC = ( W A IP * (H21 - H22) + DHACEL) 

/ ( WG 5 0 

* T50) 

ABCD206B 

IF (FXM2CP) DHTIC = (BTUEXT + WACP * 

( H 3 - H21) + WAX' 3 * 

ABCD206 9 

1 (H21 - H 2 2 ) + DHACEL) / (WG50 * T50) 



A FCD2070 
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^ n n n 


IF (IDES . EQ. 0) GO TO 6 
TFIPCF = TFIPDS / TFICAL 
DHIPCF = DHTIC / DHTCIP 
ETIPCF = ETIPDS / ETATIP 
IF (.NOT. FXN2CP) GO TO 132 
TFIPCF = TFHPDS / TFICAL 
ETIPCF = ETHPDS / ETATIP 

102 WHITE (6,11) CNIPCF, TFIPCF, ETIPCF, DHIPCF 

6 TFICAL = TFIPCF * TFICAL 
DHTCIP = DHIPCF * DHTCIP 
ETATIP = ETIPCF * ETATIP 
DHTI = DHTIC * T50 

N 1 =8 
N2 = 9 

IF (.NOT. FXM2CP) GO TO 103 
N 1 = 1 
N2 = 2 

103 ERR (N 1) = (TFICAL - TFFIP) / TFICAL 

EBB (N2) = (DHTIC - DHTCIP) / DHTIC 

CALL THTU3B (DHTI , ET ATI P , F A R5 0 , H 50 , S 50 , P50 , T 5, H5 , S 5 , P 5 ) 

IF (BLIP .LE. 0.0D0) GO T3 7 

FAR5 = FAR50 * WG50 / (WG50 ♦ BLIP * (FAR50 + 1.0D0)) 

WG5 = WG50 + BLIP 

H5 = (BLIP * H3 + WG50 * H5) / WG 5 

CALL THERMO ( P5 , H5 , T5 , S 5 ,X X2 , 1 , F AR5 , 1 ) 

GO TO 8 

7 FAR5 = FAR50 
WG5 = WG50 

8 IF ( VIPTRB .EQ. 0.0D0) GO TO 21 
Q (2) = 0 . 0 DO 

Q (3) = 0.0D0 

WG5P = WG5 
H5P = H5 

P5DOT = DERIV (14 ,P5) 

19 CALL THERMO ( P5, H5, T5 , S 5 , X X 2, 1 , F AR 5 , 0) 

WG5 = WG5P - P5DOT * VIPTRB / T5 / 1.4D0 / RA 
U5 = H5 - RA * AJ * T5 
05D0T = DER IV ( 1 5 , 05) 

H5X = (WG5P * H5P - (WG5P - WG5) * U5 - U5DOT * ?5 * VIPTRB / 

1 T5 / RA) / WG5 
ERR W = (H5 - H5 X) / H5 
DIR = DSORT (DABS (H5 / H5X) ) 

CALL AFQUIR (Q(1) ,T5 , ERRW, 3 . 0D3 , 20 . 0 DO , . 1 DO *TOL ALL , DIR , T5T , IGO ) 
GO TO (19,21,20) , IGO 

19 T5 = T5T 
GO TO 18 

20 CALL ERROR 

21 H22 = H22SAV 
CALL COLPTB 
RETURN 


FORMAT (19H0*****TFFIP OFF MAP,F10.4,2X,A4,A2,11H*****$$$$$$) 


ABCD2071 
ABCD2072 
ABCD2073 
ABCD2974 
ABCD2075 
ABCD2076 
A3CD2077 
ABCD207 3 
ABC 02 07 9 
ABCD2080 
A BCD 20 3 1 
ABCD2092 
ABCD2093 
A3CD2034 
ABCD2CS5 
ABCD2086 
ABCD2097 
ABCD208S 
A8CD2099 
ABCD2O90 
ABCD2091 
ABCD2092 
A BCD20? ’ 
ABCD2094 
ABCD2 C9 5 
ABCD2095 
ABCD2C97 
ABCD2093 
ABCD2099 
ABCD2 102 
A3CD2101 
A BCD 2 10 2 
A BCD 2 103 
A BCD 2 10'-' 
A BCD 2 1 ^ 5 
ABCD21 06 
ABCD2107 
A BCD 2 1 0 9 
ABCD2109 
A3CD2112 
ABC021 1 1 
APCD2 1 1 ? 
A BCD 2 113 
ABCD2 1 1 (. 
ABCD2115 
A3CD21 1 ? 
ABCD2 1 1 7 
ABCD21 1 9 
ABCD2 1 1 9 
A3CD2120 
ABCD2121 
ABCD2122 
ABCD2123 
ABCD2124 
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II 


10 .FORMAT (19 HO***** CNIP OFF MAP, F10.4,2X,A4,A2,1 1H*****$$$$$$) 

11 FORMAT (20H0I. P. TURBINE DE5 IGN, 5 X , 7 HCN IPCF= , El 5. 3 , 8 H TFIPCF=, 
1 El 5. 8, 6H ETIPCF=,E15.8,6H DHIP : F=, E 1 5 . 8 ) 

END 


ABCD2 125 
A8CD212S 
AECD2127 
ABCD2 12? 


Subroutine COLPTB 


100 


101 


1 


SUBROUTINE COLPTB 
IMPLICIT BEAL*8 (A-H,0-Z) 

LOGICAL SI, FXPN2M, AFTFAN 
COMMON /COMALL/ COM (1062) 

COMMON /COMDAT/ COMD (5423) 

DIMENSION WO RD ( 2) , ERR (9) , TFFXL(IS), CNXL(15,15), DHTCXL (15,15) 
1 ETATXL (15,15) , NPTTFL ( 1 5) 

DIMENSION Q(9) , AWORD(2), WLO(2), WHI(2) 

EQUIVALENCE (WOF.D(I), COM(1)), (IDES, COM (3) ) , (NOMA?, COM (20) ) , 

1 (TOLALL, COM (23)), (3PR(1), COM (24)), (H22, COM(?4)), (H2, 

2 COM (94) ) , (T5 , COM (102)), (H5, COM(103)), (S5, COM (104)), (W05, 

3 COM ( 1 05) ) , (FAR5 , COM(1C5)), (HPEXT, COM(129)), (PCNF, COM(137)) 

4 (H3, COM ( 1 53) ) , ( H 2 1 , COM(2fc4|), (T55, COM(272)), 

5 (H55, COM (273)), (S55, COM (274)), (TFLPDS, COM (275)), 

6 (CNLPDS , COM (276)), (ETLPDS, COM (277)), (TFLPCF, COM(2P1)), 

7 (CNLPCF , COM(2e2)), ( ETLPCF, COM(283)), (DKLPCF, COM (284)), 

8 (TFFLP, COM (289 ) ) , (CNLP, COM (290)), (ETATLP, COM (291)), 

9 ( DHTCLP, COM (292) ) , ( DHTF, CON(293)), (BLLP, COM(315)), 

1 (WG55, COM (323)), (FAR55, COM (324)), (XNLP, COM (374) ) , 

2 (P5, COM (385)), (P55, COM(3P7)), (U55, COM (388)), 

3 ( VLPTRB , COM (40 1) ) , (WAFP, COM(420)), (WAIP, COM(421)), 

4 (XNLPDS, COM (425)), (PMILP, COM (428)), (ISPOOL, COM ( 1044)), 

5 (SI, COM (1055)), (FXFN2M, COM(1058)), (AFTFAN, COM(1060)) 

EQUIVALENCE (TFFXL(I), COMD(4506)), (CNXL(1,1), COMD(4621)), 

1 (DHTCXL (1 , 1) , COMD (4846) ) , (ETATXL (1 , 1) , COMD{5071)), 

2 (NTFFSL, COMD (5408) ) , ( NPTTFL ( 1 ) , COMD (5409) ) 

DATA AWORD, WLO, WHI /4HCOLP, 4HT3 , 4H (LO, 4H) , 4H (HI, 

1 4H) / 

WORD ( 1 ) = A WORD ( 1 ) 

WORD(2) = AWORD ( 2) 

IF (SI) GO TO 100 

RA = . 0252D0 

AJ = 2.719D0 

CON FAC = 1.409 1D-5 

GO TO 101 

RA = 286. 9D0 

AJ = 1.0D0 

CON FAC = 1.C966D-2 

THDE = DSQRT (T5) / PCNF 

IF (IDES ,EQ. 0) GO TO 1 

CNLPCF = CNLPDS * THDE 

CNLP = CNLPCF / THDE 

CNLPS = CNLF 

TFFLPS = TFFLP 

CALL SEARCH (- 1 . 0 DO , TFFLP, CNL P, DHTC LP , ETATL P , TFFXL ( 1 ), NTFPS L, 

1 CNXL (1 , 1) , DHTCXL (1,1) , ETATXL (1,1), NPTTFL (1) ,15,15, IGD ) 

IF (IGO .EQ. 1 .OR. IGO . EQ. 11 .OR. IGO . EQ. 21) 


ABCD2129 
ABCD21 30 
ABCD2131 
ABCD2132 
ABCD21 33 
, ABCD2134 
ABCD21 35 
A3CD2135 
A BCD 2 13 7 
ABCD2 1 3° 
AFCD2139 
, ABCD2142 
ABCD214 1 
ABCD2142 
ABC D2 143 
A 300214 4 
ABCD2 1 45 
A5CD2 1 4 5 
ABCD2147 
ABCD21U8 
ABCU214? 
ABCD215C 
ABCD2 15 1 
ABCD2152 
ABCD2153 
ABCD2 154 
ABCD2155 
ABCD2156 
A BCD 2 157 
A BCD.? 153 
ABCD2159 
ABCD2160 
A3CD215 1 
ABCD2162 
A3CD2153 
ABCD2164 
ABCD2155 
ABCD2166 
A3CD2167 
ABCD2158 
ABCD2159 
ABCD2 170 
ABCD2171 
ABCD2172 
ABCD2173 
ABC02 174 
ABCD2175 
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I III III I III 


2 


11 


5 


102 


6 

7 


1 WRITE (8,8) TFFLPS , WLO 


IF 

(IGO 

.EQ. 

2 .OR. 

IGO . 

EQ. 12 . 

OR. IGO . 

EQ. 

22) 

1 WRITE 

(8,8) 

TFFLPS 

, WHI 





IF 

(IGO 

. EQ. 

10 .OP 

. IGO 

.EQ. 11 

•OR. IGO 

.EQ. 

12) 

1 WRITE 

(8,9) 

CNLPS, 

WLO 





IF 

(IGO 

• EQ. 

20 .OR 

• IGO 

.EQ. 21 

.OR. IGO 

.EQ. 

22) 

1 WRITE 

(8,9) 

CNLPS, 

WHI 





IF 

(IGO 

.NE. 

7) GO 

TO 2 






CALL ERROR 
RETURN 
NOMAP = 0 

TFLCAL = WG5 * DSQRT (T5) / (1 4. 696D0 * P5) 

IF (31) TFLCAL = WG5 * DSQRT(T5) / P5 
XNLP = XNLPDS * PCNF / 100. 0D0 
XNLDOT = DERI V (3 , XNLP) 

DHACEL = CON FAC * PMILP * XNLP * XNLDOT 

DHTCF = (WAFP * (H22 - H2) DHACEL) / (WG5 * T 5) 

DEXT = DHTCF 

IF (FXFN2M .AND. .NOT. AFTFAN) DHTCF = DEXT ♦ WAIP * (H21 - H22) 

1 / (WG5 * T5) 

IF (FXFN2M .AND. AFTFAN) DHTCF = DEXT + WAIP * (H21 - H2) / 

1 (WG5 * T5) 

IF (ISPOOL .GE. 2) GO TO 11 

BTUEXT = 0.70S705D0 * HPEXT 

IF (SI) BTUEXT = HPEXT 

DHTCF = DEXT + BTUEXT / (W35 * T5) 

IF (IDES .EQ. 0) GO TO 5 
TFLPCF = TFLPDS / TFLCAL 
DHLPCF = DHTCF / DHTCLP 
ETLPCF = ETLPDS / ETATLP 

WRITE (6,10) CNLPCF , TFLPCF, ETLPCF, DHLPCF 

TFLCAL = TFLPCF * TFLCAL 

DHTCLP = DHLPCF * DHTCLP 

ETATLP = ETLPCF * ETATLP 

DHTF = DHTCF * T5 

11 = 3 

12 = 4 

IF (ISPOOL .NE. 1) GO TO 102 

11 = 1 

12 = 2 

ERR (II) = (TFLCAL - TFFLP) / TFLCAL 
ERR (12) = (DHTCF - DHTCLP) / DHTCF 

CALL THTURB (DHTF, ETATLP, FAR 5, H5,S5,P5, P55,H55,S55,P55) 

IF (BLLP .L£. 0.0D0) GO TO 6 

FAR55 = FAR5 * WG5 / (WG5 + BLLP * (1.0D0 + *AR5)) 

WG55 = WG5 + BLLP 

H55 = (BLLP * H3 + WG5 * H55) / WG55 

CALL THERMO ( P5 5, H55 , T 55 , S5 5 , XX 2 , 1 , F AR 55 , 1 ) 

GO TO 7 
FAR55 = FAR5 
WG55 = WG5 

IF (VLPTPB .EQ. 0.0D0) GO TO 21 
Q (2) = O.ODO 
Q(3) * O.ODO 


ABCD21 76 
ABCD2177 
ABCD217B 
ABCD2179 
ABCD2180 
A 3CD2 1 9 1 
ABCD21P2 
ABCD2183 
ABCD2134 
ABCD2185 
ABCD21S5 
ABCD2197 
ABCD21P9 
ABCD2 199 
ABCD2190 
ABCD2 1 3 1 
ABCD2 1 92 
ABCD2193 
ABCD2194 
ABCD2195 
ABCD2 195 
A3CD2 1 97 
A3CD2 199 
ABCD2 199 

ABCD22DD 
ABCD2201 
A3CD2202 
APCD22D3 
A3CD22P4 
ABCD2205 
ABCD2206 
ABCD2207 
A BCD 2209 
A 3 CD 2 209 
ABCD2210 
ABCD221 1 
A3CD2212 
ABCD221 3 
ABCD2214 
ABCD221 5 
ABCD2215 
ABCD221P 
ABCD221 9 
A BCD 2 219 
A5CD2229 
AECD2221 
ABCD2222 
A3CD2223 
ABCD2224 
ABCD2225 
ABCD222S 
ABCD222 7 
ABCD2229 
ABCD2229 
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13 


19 

20 
21 
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WG55P = WG55 
H55P = H55 

P55DOT = DERI V (16 ,P55) 

CALL THERMO ( P55 , H55, T55, S5 5, XX2, 1 , FAR55 , 0) 

WG55 = MG55P - P55DOT * VLPTFB / T55 / 1.4D0 / HA 
U55 = H55 - RA * AJ * T55 
U55DOT = DERI V ( 17 ,055) 

H55X = (HG55P * H55P - (WG55P - WG55) * U55 - 055DOT * P55 * 

1 VLPTRB / T55 / RA) / WG55 
ERRW = (H55 - H55X) / H55 
DIR =» DSQRT (DABS (H55 / H55X) ) 

CALL AFQUIR (Q ( 1 ) ,T5 5 , E RFW , 0 . ODO , 20 . 0 DO , . 1BO*TOLALL,DIR,T55T, IGO) 

GO TO (19,21, 20) , IGO 

T55 = T55T 

GO TO 18 

CALL ERROR 

CALL FRTOSD 

RETORN 


FORMAT (1 9H0*****TFFLP OFF M A P, F 1 0 . 4 , 2 X , A4 , A 2 , 1 1 H** ** * $ $$$ $ % ) 
FORMAT ( 1 9 HO***** CNLP OFF MAP, F 10. 4 , 2X, A4, A2, 1 1H ****»$ $$$ $$) 
FORMAT (20H0L. P. TURBINE DESIGN, 5X,7HCNLPCF=,E15.8,8H TFLPCF = , 
1 El 5. 8 , 8H ETLPCF=,E15. 8 ,8H DHLPC F= , E 1 5 . 8) 

END 


ABCD2230 
ABCD2231 
ABCD2232 
ABCD2233 
ABCD2234 
ABCD2235 
ABCD2236 
ABCD2237 
ABCD2239 
ABCD2239 
ABCD2240 
ABCD2241 
ABCD2242 
ABCD224 3 
ABCD2244 
ABCD2245 
ABCD224 6 
A3CD2247 
ABCD22&3 
ABCD2209 
ABCD2250 
ABCD2251 
ABCD2252 
ABCD2253 
ABCD225'i 


Subroutine COMIX 


SUBROUTINE COMIX 
IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL SI 

COMMON /COMALL/ COM (1062) 

DIMENSION WORD (2), ERR (9) , DUMD1(15) 

DIMENSION QQ(9), AW0PD(2) 

EQUIVALENCE (W0RD(1), C0M(1)), (IDES, COM (3)), (MODE, COM (6)), 

1 ( I GAS MX , COM (10) ) , (NOMAP, COM (20)), (TOLALL, COM(23)), (HPF(1), 

2 COM (24) ) , (A M25 , COM(45)), (T25, COM(46)), (P25, COM(47)), (H25, 

3 COM (48) ) , (S25 , COM (49) ) , (A25, COMO®)), (V25, COM (99)), (A.M C S, 

4 COM ( 107) ) , (V55, COM (108)), (A55, C0.M(10?)), (PS55, COM(IIO)), 

5 (Sb, COM (111)) , (PS6 , COM ( 1 1 2) ) , (V6, COM(113)), 

6 (PRFDS, COM ( 1 25) ) , (ZF, COM(136)), (PCNF, COM(137)), 

7 (T55 , COM (27 2) ) , (H55, COM(273)), (S55, COM (274) ) , 

8 ( PRCDS , COM (297) ) , (WG24, COM ( 3 2 1 ) ) , (FAR2 A, COM(322)), 

9 (WG55, COM (3 2 3) ) , (FAR55, COM(324)), ( A M 6 , COM(327)), 

1 ( A 6 , COM (3 28) ) , (WG6 , COM(330)), (T6, COM(331)), (P6, COM (332)), 

2 (H6 , COM (333) ) , (P55, C0M(3fi7)), (DIIMD1(1), COM (405) ) , 

3 (PRFNEW, COM (991)), (PRCNFW, COM(992)), (ICOMIX, COM (1047)), 

4 (KKGO, COM (1048)), (SI, C0M(1055)) 

DATA AWORD /4H COM, 4HIX / 

WOR D ( 1 ) = AWORD(I) 

WORD (2) = AWORD (2) 

IF (SI) GO TO 100 
AJ = 778.26D0 
CAP5F = 2116.217 ODO 


ASCD2955 
ABCU2256 
A P CD22 C 7 
APCD2253 
ASC02259 
A BCD? 2 6 9 
A3CJ226 1 
ABCD2262 
A 3CD226 3 
A3CD2264 
ABCD2265 
A BCD 2 26 A 
A3CD2267 
ABCD2263 
ABCD226 : 
A BCD? 2 7 0 
A8CD2271 
A 3CD2272 
A BCD2273 
ABCD2274 
ABCD227B 
ABCD227 6 
ABCD2277 
ABCD2270 
A3CD2279 
ABCD2230 
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G = 32. 1 74049D0 
RDEM = 1 . 986375D0 
GO TO 101 

100 AJ = 1.0D0 
CAPSF = I.ODO 
G = I.ODO 

RDEM = 8316. 41D0 

101 GAJ2 = 2.0 * G * AJ 
ICOMIX = 0 

CALL PROCOM ( FAR55,T55, XXI , XX 2, XX3, XX4 ,PHI55, XX5) 

CALL PROCOM (F AR24 ,T25 , XXI , XX2, X X3 , XX4 , PHI2 5, XX 5) 

IF (IDES . EQ. 0) GO TO 12 
C *** CALCULATE A55 AND A25 WITH PS25=PS55 
IF ( PS55 .EQ. O.ODO) GO TO 3 
POP = PS55 / P55 
ALPOPI = DLOG (1.0D0 / POP) 

TS55 = T55 * POP ** .286D0 
DO 1 I = 1,50 

CALL PROCOM (FAR55 , TS5 5, CS5 5 , AK5 5 , CP55 , REX5 5 , PHIS 55 , HS 5 5) 
PHIS = PHI 55 - REX55 * ALPOPI 
DELPHI = PHIS - PHIS55 

IF (DABS (DELPHI) .LE. ^ 1 DO * TOLALL * PHIS) GO TO 6 

1 TS55 = TS55 * DEXP(4.0DC * DELPHI) 

ICOMIX = 1 

2 CALL ERROR 
RETURN 

3 TS55 = 0.875D0 * T55 
DO 4 I = 1 ,50 

CALL PROCOM ( F AR55 , TS5 5 , CS 5 5, AK 5 5, CP 55 , RE X5 5 , PH I S5 5 , H S5 5) 

V55 = AM55 * CS55 

HS CAL = H55 - V55 ** 2 / G A J 2 

DELHS = HSCAL - HS55 

IF (DABS (DELHS) .LE. . 5 DO * TOLALL * HSCAL) GO TO 5 

4 TS55 = TS55 ♦ DELHS / CP55 
ICOMIX = 2 

GO TO 2 

5 PS55 = P55 / DEXP ( (PHI55 - PHT555) / REX55) 

IF (P555 . GT. P 25 .AND. IDES .EQ. 1 .AND. IGASBX . GT. 0) 

6 IF (H 55 .GT. HS55) GO TO 7 

WRITE (8,46) P55,PS55,T55,TS55,H55, HS55 

ICOMIX = 3 
CALL ERROR 

7 V55 = DSQST (G AJ 2 * (H55 - HS55)) 

RHO = CAPSF * PS 55 / (AJ * REX55 * TS55) 

A55 = WG55 / (RHO * V55) 

AM55 = V 55 / CS55 
IF (IGASMX .GT. 0) GO TO 3 
WRITE (6,47) A55, AM55 

IF (IGASMX) 35,41,8 

8 PS25 = PS 55 

POP = PS25 / P25 

ALPOPI = DLOG ( 1 . 0D0 / POP) 

TS25 = T25 * POP ** .286D0 
DO 9 I = 1,50 


A3CD228 1 
ABCD228 2 
ABCD2283 
ABCD22B 4 
ABCD2285 
ABCD223 5 
ABCD2287 
ABCD2233 
ABCD2299 
ABCD2290 
ABCD229 1 
ABCD2292 
AECD229 3 
ABCD2294 
ABCD2295 
ASCD2296 
ABCD2297 
ABCD229 3 
ABCD2299 
ABCD2300 
A8CD2301 
ABCD2302 
ABCD2303 
ABCD2304 
A3CD2305 
ARCD2306 
ABCD230 7 
ABCD2 3C8 
A BCD230 9 
ABCD2310 
ABCD231 1 
ABCD2312 
ABCD2313 
ABCD231 4 
ABCD231 5 
ABCD2315 
ABCD23 1 7 
GO ^O 45 ABCD2 91 3 
ABCD231 9 
ABCD232Q 
ABCD2321 
ABCD2322 
ABCD2323 
ABCD2324 
A3CD2325 
AECD2325 
APCD2327 
AECD2323 
AECD232 Q 
ABCO2330 
ABCD2331 
ABCD2332 
ABCD2333 
ABCD2334 
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i 1 1 



10 


11 


c *** 

12 


13 


14 


16 


17 


1 


CALL PFOCOM ( FAR24, TS 25, CS 2 5, A K 2 5 , CP25 , SSX2 5, PHI S25 , H S 2 5) 
PHIS = PHI2S - REX25 * ALPOPI 
DELPHI = PHIS - PHIS25 

IF (DABS (DELPHI) .LE. .IDO * TOLALL * PHIS) GO TO 10 
TS25 = TS25 * DEXP(4.0D0 * DELPHI) 

ICOMIX = 4 
GO TO 2 

IF (H25 .GT. HS2S) GO TO 11 
WRITE (8,48) P25,PS25,T25,TS25,H25, HS25 

ICOMIX = 5 
CALL ERROR 

V25 = DSQRT (GAJ2 * (H25 - HS25) ) 

RHO = CAPS? * PS25 / (AJ * REX25 * TS25) 

A25 = WG24 / (RHO * V25) 

A M2 5 = V 25 / CS25 

WRITE (6,49) A55,AM55,A25, AM25 

GO TO 27 

CALCULATE PS55 AND PS25 
WQA = WG55 / A 55 

Cl = P55 * DSQRT (G / (T55 * AJ) ) * CAPSF 

MCON = 0 

QQ (2) = 0.0D0 

QQ (3) = O.ODO 

AM55 = 0.50D0 

TS55 = 0.875D0 * T55 

DO 14 I - 1,50 

CALL PROCOM (F AR55 , TS5 5 , CS 5 5 , AK5 5 , CP55 , REX5 5 , PHIS55 , HS 55) 

V55 = AM55 * CS55 

HSCAL = H55 - V55 ** 2 / 3AJ2 

DELHS = HSCAL - HS55 

IF (DABS (DELHS) .LE. .5D0 * TOLALL * HSCAL) GO TO 15 
TS55 = TS55 + DELHS / CP55 
ICOMIX = 6 
GO TO 2 

WQAT = Cl * DSQRT (AK55 / REX55) 

AM55 ** 2 / 2.0 DO) ** ((AK55 + 

AMX = AM55 
IGOGO = 0 
DIR = WQA / WQAT 
EW = (WQA - WQAT) / WQA 
CALL AFQUIR (QQ ( 1 ) , A MX, EW, 0 . 

ICOMIX = 7 

GO TO (17,22,2) , ICON 
IF ( AMXT .LE. 1.OD0) GO TO 
AMXT = 0.7D0 
MCON = MCON + 

IF (MCON .LE. 

IF (MODE .EQ. 


* AM55 
1 . 0 DO) 


(1 .0D0 
(2. 0D0 


( AK55 - 
(AK 55 - 


ODD, 30. 0 DO, .5 DO *TOL ALL, DIE, AMXT, ICON) 


20 


1 

D 

3) 


18 


GO TO 20 
GO TO 19 

PCNF = DUMD1 (1) 

WRITE (8,50) PCNF, AMX, P55, PS55, P25, PS25 

PCNF = 1.01D0 * PCNF 

DOM D 1 ( 1 ) = PCNF 

NOMAP = 7 

ICOMIX = 0 


ABCD2335 
ABCD2336 
ABCD2337 
ABCD2339 
ABCD2339 
ABCD23U0 
ABCD234 1 
A3CD2342 
ABCD2343 
ABCD234U 
AECD2345 
A3CD2345 
AECD2 34 7 
ABCD2348 
ABCD2349 
ABCD2350 
ABCD2351 
ABCD2352 
ABCD2353 
ABCD2354 
ABCD2355 
ABCD2356 
ABCD2357 
ABCD2358 
ABCD2359 
ABCD2350 
ABCD2361 
ABCD2362 
ABCD2363 
ABCD2364 
ABCD2365 
ABCD2366 
ABCD2367 
ABCD2368 
0D0) *ABCD236 9 
0D0) ) ) ABCD2370 
ABCD2371 
ABCD2372 
ABCD2373 
ABCD2374 
ABCD2375 
ABCD2376 
ABCD2377 
ABCD2378 
ABCD2379 
A3CD2389 
ABCD233 1 
ABCD2382 
ABCD2383 
ABCD2384 
ABCD2385 
ABCD2385 
ABCD2387 
ABCD2389 


84 



19 

20 

21 

22 

103 

23 

24 

25 

26 
27 


RETURN 

WRITE (8,51) ZF,AMX,P55,PS55,P25, PS25 

ZF = 0.99D0 * ZF 
GO TO 18 

IF (IGOGO .EQ. 1) GO TO 21 
AM55 = AMXT 
GO TO 13 
AM25 = AMXT 
GO TO 23 

IF (IGOGO .E1Q. 1) GO TO 26 

PS55 = P55 / DEXP ( (PHI55 - PHIS55) / REX55) 

IF (IGASMX) 35,41,103 
WQA = WG24 / A25 

Cl = P25 * DSQRT (G / (T25 * AJ) ) * CAPSF 

MCON = 0 

QQ(2) = 0.0D0 

QQ (3) = 0.0D0 

AM25 = 0.25D0 

TS25 = 0.875D0 * T25 

DO 24 I = 1,50 

CALL PROCOM (F AR24 ,TS25 , CS 2 5 , AK2 5, CP25, REX25, PHIS 25 , H5 2 5) 

V25 = AM 25 * CS25 

HSCAL = H25 - V25 ** 2 / GAJ2 

DELHS = HSCAL - HS25 

IF (DABS (DELHS) .LE. . 5D0 * TOLALL * HSCAL) GO TO 25 
TS25 = TS2 5 ♦ DELHS / CP25 
ICOMIX = 8 
GO TO 2 

WQAT = Cl * DSQRT (AK25 / REX25) * AM25 / (I.ODO ♦ (AK25 - 
1 AM25 ** 2 / 2.0D0) ** ((AK25 ♦ I.ODO) / (2.0D0 * (AK25 - 
AMX = AM25 
IGOGO = 1 
GO TO 16 

PS25 = P25 / DEXP ( (PHI25 - PHIS25) / REX25) 

UG6 = HG24 ♦ WG55 

ERR (5) = (PS25 - PS55) / PS25 

WF55 = FAR55 * WG55 / ( FAR 55 ♦ I.ODO) 

WA55 = WG55 / (FAR55 + I.ODO) 

WF24 = FAR24 * WG24 / ( FAR24 + I.ODO) 

WA24 = WG24 / (FAR24 + I.ODO) 

FAR6 = (WF55 + BF24) / (SA55 ♦ WA24) 

H6 = (WG24 * H25 ♦ WG55 * H55) / »G6 
CALL THERMO (1 .ODO, H6,T6,PHI6,AMX, 1 ,FAR6, 1) 

Cl = PS55 * A55 * (I.ODO ♦ AK55 * AM55 ** 2) ♦ PS25 * A25 
1 (I.ODO ♦ AK25 * AM25 ** 2) 

TS6 = 0.833D0 * T6 
DO 32 I = 1,50 

CALL PROCOM (FAB6,TS6 ,CS6, AK6, CP6, REX6 , PHIS6 ,HS6) 

C2 = WG6 * DSQRT (AJ * BEX6 * T6 / ( AK6 * G) ) 

C3 = C2 / (CAPSF * Cl) 

C4 = (AK6 - I.ODO) / 2. ODO - (C3 * AK6) ** 2 
C5 = I.ODO - 2. ODO * AK6 * C3 ** 2 
C6 = C5 ** 2 ♦ 4. ODO * C4 * C3 ** 2 
ICOMIX = 9 


ABCD23B9 
A8CD23 Q C 
ABCD23? 1 
ABCD2 392 
ABCD2393 
ABCD2394 
A3CD2395 
A3CD239S 
ABCD2397 
ABCD2398 
AECD2399 
A3CD2400 
A 8 C D 2 1- 0 1 
ABCD240? 
ABCD2403 
ABCD2404 
ABCD2405 
ABCD2405 
ABCD2407 
ABCD2408 
ABCD2409 
ABCD2410 
ABCD24 1 1 
ABCD2U12 
ABCD24 13 
A BCD 24 1 4 
ABCD2415 
ASCD2416 
I.ODO) * ABCD24 1 7 
I.ODO) ) ) ABCD2418 
ABCD2419 
ABCD2420 
A BCD 2 42 1 
ABCD2422 
ABCD2423 
ABCD2424 
ABCD2425 
ABCD2426 
ABCD2427 
ABCD2428 
ABCD2429 
ABCD2430 
ABCD24 31 
* ABCD2432 

ABCD2433 
ABCD2434 
ABCD2435 
ABCD2436 
ABCD2437 
ABCD2438 
ABCD2439 
ABCD2440 
ABCD244 1 
ABCD2442 
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IF (C6) 28,29,30 

28 CALL ERROR 
RETURN 

29 AM62G = - C5 / (2.0D0 * C4) 

GO TO 31 

30 AM62G = (DSQRT (C6) - C5) / (2.0D0 * C4) 

31 IF (AM62G .LE. 0.0D0) GO TO 28 
AM6G = DSQRT ( AM6 2G) 

V6 = AM6G * CS6 

HSCAL = H6 - V6 ** 2 / GAJ2 

DELHS = BSCAL - HS6 

IF (DABS (DELHS) .LE. .5D0 * TOLALL * HSCAL) GO TO 33 

32 TS6 = TS6 + DELHS / CP6 
ICOMIX = 10 

CALL ERROR 

33 A6G = A25 + A55 

C7 = DSQRT (1.0D0 «• (AK6 - 1.0D0) * AM62G / 2.0D0) 

PS6 = C2 / (CAPSF * A6G * AM6G * C7) 

P6 = PS6 * DE XP ( (PHI6 - PHIS6 ) / REX6) 

CALL THERMO ( P6, H6 , T6 , S6 , X X 1 , 1 , F AP 6 , 0) 

S6AVE = (WG24 * S25 + WG55 * 555) / WG6 
IF (S6 .GE. S6AVE) GO TO 35 
S6 = S6AVE 

P6 = DEXP (AMX * (PHI6 - S6) / RDEM) 

35 IF (IGASMX .LE. 0) GO TO 36 
GO TO (43,37) , IGASMX 

36 T6 = T55 
P6 = P55 
H6 = H55 
S6 = S55 
WG6 = HG55 
PS6 = PS55 
FAR6 = FAR55 
AK6 = AK55 

37 IF (IDES .EQ. 0) GO TO 38 

C*** CALCULATES A6 AS A FUNCTION OF INPUT AM6 

TS6 = T6 / (1.CD0 + ( ( ( AK6 - 1.0D0) / 2.0D0) * A M6 ** 2)) 

DO 34 JJ = 1 ,50 
AK6P = AK6 

CALL PROCOM (F AR6 ,TS6 ,CS6 , AK6 , C P6, R EX6 , PHIS6 , HS6) 

V6 = AM6 * CS6 
DELAK6 = AK6P - AK6 

IF (DABS (DELAK6) .LE. .5D0 * TOLALL * AK6 ) GO TO 54 

34 TS6 = T6 / (1.0D0 * ( ( (AK6 - 1.0D0) / 2.0D0) * AM6 ** 2)) 

ICOMIX = 1 1 

CALL ERROR 

54 PS6 = P6 / ((1.0D0 + ( ( ( AK6 - 1.0D0) / 2.0D0) * AM5 ** 2)) ** 
1 (AK6 / (AK6 - 1 .0D0) ) ) 

AM6ABD = AM6 

RHO = CAPSF * PS6 / (AJ * REX6 * TS6) 

A6 = WG6 / (RHO * V6) 

WRITE (6,52) A 6 
GO TO 44 

C CALCULATES M6 = F ( A6 DBS IGN ) 


ABCD2443 

ABCD2444 

ABCD2445 

ABCD2446 

ABCD2447 

ABCD2448 

ABCD2449 

ABCD2450 

ABCD2451 

ABCD2452 

ABCD2453 

ABCD2454 

ABCD2455 

ABCD2455 

ABCD2457 

ABCD2453 

ABCD2459 

ABCD2460 

ABCD2461 

ABCD2452 

ABCD2463 

ABCD2464 

ABCD246 5 

ABCD2466 

ABCD2467 

ABCD24S8 

ABCD2469 

ABCD2470 

ABCD2471 

ABCD2472 

ABCD2473 

ABCD2474 

ABCD2475 

ABCD2476 

ABCD2477 

ABCD2478 

ABCD24 79 

ABCD2433 

ABCD2481 

A3CD2432 

ABCD2483 

ABCD2484 

ABCD2435 

ABCD24 86 

A3CD2487 

ABCD2488 

ABCD2489 

ABCD2490 

A3CD2491 

A3CD2492 

ABCD249 3 

ABCD2494 

ABCD2495 

ABCD249 5 
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38 


39 


40 


41 


42 


43 


44 

45 


C 

C 

46 

47 

48 

49 

53 


TS6P = T6 / (1.0D0 ♦ ( ( ( AK6 - 1.0D0) / 2.0D0) * AM6ABD ** 2)) 

DO 39 I = 1,50 

CALL PROCOM (FAR6,TS6P,CS6, AK6,CP6,REX6,PHIS6,HS6) 

PS6P = PS6 * (TS6P / TS6 ) ** ( AK6 / ( AK6 - 1.0D0)) 

RH06 = CAPSF * PS6P / (AJ * REX6 * TS6P) 

V6 = DSQRT (GA J2 * (H6 - HS 6) ) 

IF ( (H6 - HS6) .LT. 0.0D0) GO TO 42 
A6P = WG6 / ( RH06 * V6) 

DELA6 = A6P - A6 

V6 = WG6 / (RH06 * a6) 

AM6 = V6 / CS6 
AM6 2 = AM6 ** 2 

IF (DABS (DELA6) .LE. .002D3 * A6) GO TO 40 

TS6P = T6 / (1.0D0 + (({AK5 - 1.0D0) / 2.0D0) * AM62)) 

ICOMIX = 12 
CALL ERROR 
TS6 = TS6P 
PS6 = PS6P 
GO TO 44 
T6 = T55 
P6 = P55 
H6 = H55 
S6 = S55 
WG6 = WG55 
PS6 = PS55 
V6 = V55 
AM6 = AM55 

IF (IGASMX .EQ. 0) A6 = A55 
GO TO 44 

WRITE (6,53) H6 , HS6 

ICOMIX = 13 

CALL ERROR 

AM62 = AM62G 

AM6 = AM6G 

A6 = A25 + A55 

ICOMIX = 0 

CALL COAFBN 

RETURN 

KKGO = 1 

OPRDS = PRFDS * PRCDS 

PRFNEW = PRFDS * PS55 / P25 * 1.02D0 

PRCNEW = OPRDS / PRFNEW 

ICOMIX = 0 

CALL ENGBAL 

RETURN 


FORMAT (22 HOSQRT OF H55-HS55 NEG , 6E 1 5. 6 , 6H$$$$$$) 

FORMAT (20H0TURBINE AREA DESIGN, 5X, 6H A55=, E15.8, 8H AM55=, 
1 E 1 5 • 8 ) 

FORMAT (22H0SQRT OF H25-HS25 NEG ,6 E15. 6, 6H$$$$$$) 

FORMAT (25H0TURBIN E/DUCT AREA DESIGN, 7H A 55 = , E 1 5 . 8 , 8 H AM55=, 

1 El 5. 8, 8H A25=,E15.8 ,8H AM25=,E15.8) 

FORMAT ( 1 2 HOCOMIX PCN F=, F7. 4 , 4 H AM = ,F8.6,5H P55 = ,F9.5,6H PS55=, 


ABCD2497 

ABCD2498 

ABCD2499 

ABCD2500 

ABCD2501 

ABCD2502 

ABCD2503 

ABCD2534 

ABCD2505 

ABCD2536 

ABCD25D7 

ABCD2508 

ABCD2509 

ABCD2510 

ABCD2511 

ABCD2512 

ABCD2513 

ABCD251 4 

ABCD251 5 

ABCD251 5 

ABCD2517 

ABCD251 8 

ABCD251 9 

ABCD2520 

ABCD2521 

A3CD2522 

ABCD2523 

A BCD 2 52 4 

ABCD2525 

ABCD2526 

ABCD2527 

ABCD252S 

ABCD2529 

ABCD2530 

ABCD2531 

A BCD 2 532 

ABCD2533 

ABCD2534 

ABCD2535 

ABCD2536 

A3CD2 53 7 

ABCD253? 

ABCD2539 

A 3CD2 54 3 

ABCD2541 

ABCD2542 

ABCD2543 

ABCD2544 

ABCD2545 

ABCD2545 

ABCD2547 

ABCD254 ? 

ABCD254 

ABCD255 
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I 


51 

52 

53 


1 F9.5,5H P25=,F9.5,6H PS25=, F9. 5 , 6H $$$$$$) 

FORMAT (1 OHOCOMIX ZF=,F8.5,4H AM=,F8.6,5H P55=,F9.5,6H 
1 5H P25=,F9.5,6H PS2 5=, F9. 5 , $) 

FORMAT (3X,27HAFTERBURNEH DESIGN AREA A6 ,F8.3) 

FORMAT (3X, 18HNEG.HS6 FACTOR H6 , F9 . 4 , 3 X, 4H HS 6 ,F9.U) 
END 


ABCD2551 
PS55=,F9.5, ABCD2552 
ABCD2553 
ABCD2554 
ABC02555 
ABCD2555 


Subroutine COMNOZ 


1 


2 

3 


SUBROUTINE COMNOZ 
IMPLICIT REAL*8 (A-H,0-Z) 
COMMON /COMALL/ COM (1062) 
DIMENSION WORD (2) , ERR (9) 
DIMENSION AWORD (2) 

EQUIVALENCE (WOHD(1), COM ( 1 ) ) , 


(IDES, COM ( 3) ) , (IAFIBN , COM (12)) 


1 (IMCD, COM (14)), (IMS HOC, COM(16)), (NOZFLT, COM (17)), 

2 (ERR ( 1) , COM (24) ) , (PI, COM(33)), ( WG7 , COM (334) ) , 

3 (FA R7 , COM (335)), (T7, COM (343)), (H7, COM (344)), (57, COM (345)) 

4 (A8, COM (346)), (A8SAV, COM (347)), (TS8, COM (348)), 

5 (PS8 , COM ( 34 9 ) ) , ( V3 , COM(350)|, ( AM8, COM (351)), (T8, COM{352)) 

6 (P8 , COM (353) ) , (H8, COM(354)), (S8, COM(355)), (A9, COM(356)), 

7 (A9SAV, COM (357) ) , (TS9, COM(358)), (PS9, COM(359)), 

8 (V9, COM (360) ) , (AM9 , COM(361)), (T9, COM(362)), (P9, COM(363)), 

9 (H9, COM (364) ) , (S9, COM(365)), (P7, COM (389) ) , 

1 (ISPOOL, COM ( 1044) ) , (ITRAN, COM(1049)) 

DATA AWORD /4HMNOZ, 4HZL / 

WOR D ( 1 ) = AWORD ( 1) 

WORD (2) = AWORD (2) 

A8SAV = A8 
A9SAV = A9 
NOZM = 0 
IMNOZ = 0 
IF (ITRAN .EQ. 

(NOZFLT .EQ. 

(IDES .EQ. 1 
(ITRAN .EQ. 


D 


1 


CALL NOZCTR 
OR. NOZFLT .EQ. 
.OR. IAFTBN .GT. 0 
1) IMNOZ = 0 


3) NOZM = 1 
• OP.. NOZM .EQ. 


1) IMNOZ = 1 


IF 
IF 
IF 

IF (IMCD .EQ. 1) GO TO 1 

CALL CON V EG (T7, H7,P7,S7,FAR7,W37, PI, IMNOZ, A8,P7R,T8,H8,P8,S8,TS8 
1 PS3,V8,AM8,ICON) 

GO TO (3,3, 3, 2) , ICON 

CALL CONDI V (T7 , H7 ,P7 , S 7 ,F A R7 , W G7 , P 1 , IMNOZ, A8,A9,P7R,T8,H8,P8,S8, 
1 T9 , H9, P9, S9, TS8, TS9 ,PS8,PS 9, V8 , V9 , AM8, A M9, ICON) 

IMSHOC = ICON 

GO TO (4,4,^, 2) , ICON 

CALL ERROR 


T9 = 
H9 = 
P9 = 
S9 = 
TS9 = 


T8 

H8 

P8 

S8 

TS8 


PS9 = PS8 
V9 = V8 
AM9 = AM8 
A9 = A8 


ABCD2557 
ABCD2558 
A3CD2559 
ABCD2560 
ABCD256 1 
, ABCD2552 
ABCD2563 
ABCD2564 
, ABCD2565 
ABCD2566 
, ABCD2567 
ABCD2569 
ABCD256 9 
ABCD2570 
ABCD257 1 
ABCD2572 
ABCD2573 
ABCD2574 
ABCD2575 
ABCD2576 
ABCD2577 
ABCD2579 
ABCD2579 
ABCD2589 
ABCD2581 
ABCD2582 
ABCD2583 
ABCD2584 
, ABCD2585 
ABCD2586 
A3CD2587 
ABCD2588 
ABCD258? 
ABCD2590 
ABCD259 1 
ABCD2592 
ABCD2593 
ABCD2594 
ABCD2595 
ABCD259 5 
ABCD2597 
ABCD2593 
ABCD2599 
ABCD2600 
ABCD2601 
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4 


IMS HOC = ICON + 3 

ERR (6) = (P7R - P7) / P7 R 

IF (ISPOOL .EQ. 1) ERR (3) = ERR (6) 

IF (IMNOZ .EQ. 1) WRITE (6,5) A8 , A M8 , A9 , AM9 
RETURN 


FORMAT (14H0NOZZLE DES IGN , 1 0 X ,3 H A8 = ,E15.8,8H 

1 8H A9=,E15.8,8H AM9=,E15.8) 

END 

Subroutine CONDIV 


ABCD2602 
ABCD2603 
ABCD26D4 
ABCD2605 
ABCD260S 
ABCD2607 
ABCD260S 
AM8=, El 5. 8 , ABCD2609 
ABCD2610 
ABCD261 1 


SUBROUTINE CONDIV (TI, HI, PI , SI, F AR , WG , P A , IDES , AT , AO , P IE , TT , HT, PT, 
1 ST, TO ,HO,PO,SO,TST,TSO, PS T , PSO , VT , VO, AMT, AMO, ICON) 

ICON= 1 SUBSONIC, COMPARE PIE WITH PI 

ICON=2 SONIC, SHOCK INSIDE NOZZLE, COMPARE PIR WITH PI 
ICON=3 SONIC, SHOCK OUTSIDE NOZZLE, COMPARE PIP WITH PI 
ICON=4 ERROR 

IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL ZI 

COMMON /COMALL/ COM (1062) 

DIMENSION Q ( 9) 

EQUIVALENCE (TOLALL, COM(23)), (ZT, COM(1055)) 

Q (2) = 0.0D0 
Q (3) = O.ODO 
IF (ZI) GO TO 100 
AJ = 778.26D0 
CAPSF = 2116.217 0D0 
G = 32. 17 4 049 DO 
GO TO 101 
00 AJ = 1.0D0 

CAPSF = 101325. 0D0 
G = 1.0D0 

1 GAJ 2 = 2.0 * G * AJ 

CALL PROCOM ( FAR , TI, XX 1 , XX 2 , XX3 , XX4 , PH II , XX6 ) 

*** SONIC CALCULATIONS 
TSS = 0.833D0 * TI 
DO 2 J = 1,50 

CALL PROCOM (F AR ,TSS , CS S , A K , CP, R EXS , PHISS , HS S) 

HSCAL = HI - CSS ** 2 / GAJ 2 
DELHS = HSCAL - HSS 

IF (DABS (DELHS) .LE. .5D0 * TOLALL * HSCAL) GO TO 4 
TSS = TSS + DELHS / CP 
ICON = 4 
RETURN 

IF (IDES .LE. 0) GO TO 11 
*** SONIC DESIGN, CALCULATE AT 
VT = CSS 
TST = TSS 

PST = PI * (TST / TI) ** (AK / (AK - 1.0D0)) 

RHO = CAPSF * PST / (AJ * REXS • TST) 

AT = WG / (RHO * VT) 

AMT = 1.0D0 


ABCD26 12 
ABCD261 3 
ABCD261 4 
ABCD2615 
ABCD261 5 
ABCD26 1 7 
ABCD2618 
ABCD2619 
ABCD2620 
ABCD262 1 
ABCD2622 
ABCD2623 
ABCD2624 
ABCD2625 
ABCD2626 
ABCD2627 
A3CD2628 
ABCD2629 
AECD2630 
ABCD2631 
ABCD2632 
ABCD2633 
ABCD2634 
A8CD2635 
ABCD2636 
ABCD2637 
ABCD2638 
ABCD2639 
ABCD2640 
ABCD264 1 
ABCD2642 
ABCD2643 
ABCD2644 
ABCD2645 
ABCD2646 
ABCD2647 
ABCD2643 
ABCD2649 
ABCD265D 
ABCD26 5 1 
ABCD2652 
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C *** IDEAL EXPANSION DESIGN, CALCULATE AO 
PSO = PA 

TSO = TI * (PSO / PI) ** . 2 86D0 
DO 7 J = 1 ,50 

CALL PROCOP! (F AR ,TSO , CS 0, AK , CP, REX , PHIS 0, HS 0) 

PHICAL = PHII - REX * DLOG(PI / PSO) 

DELPHI = PHICAL - PHISO 

IF (DABS (DELPHI) .LE. .IDO * TOLALL * PHICAL) GO TO 8 

7 TSO = TSO * DEXP (4 . ODO * DELPHI) 

GO TO 3 

8 VO = DSQRT (GA J2 * (HI - HSO) ) 

AMO = VO / CSO 

AKP 1 = AK ♦ 1.0D0 
AKM 1 = AK - 1.0D0 

AO = (AT / AMO) * (2. ODO * (1.0D0 + A K M 1 * AMO ** 2 / 2. ODO) / 

1 AKP 1 ) ** ( AKP1 / (2. ODO * AKMl ) ) 

PIR = PI 
ICON = 3 

9 TO = TI 

HO = HI 
PO = PI 
SO = SI 

10 TT = TI 

HT = HI 
PT = PI 
ST = SI 
RETURN 

C *** ASSUME SONIC THROAT AND ISENTROPIC EXPANSION TO AO 

11 VT = CSS 

AMT = 1.0D0 

TST = TSS 

RHO = WG / (AT * VT) 

PST = RHO * AJ * REXS * TST / CAPSF 

PIR = PST * (TI / TST) ** (AK / (AK - 1.0D0)) 

IF (PST .GE. PA) GO TO 27 
TSO = 0.95D0 * TI 
MAM = 0 

13 CALL PROCOM (F A R ,T SO, CSC, A K, CP, R EX , PHISO, HS 0) 

AKP 1 = AK + 1.0D0 
AKMl = AK - 1.0D0 

AMO = DSQET (2 . ODO * ((TI / TSO) - 1.0D0) / AKMl) 

AOCAL = (AT / AMO) * (2. ODD * ( 1 .0 00 + AKMl * AMO ** 2 / 2. ODO) 

1 AKP 1 ) ** (AKF1 / (2. ODO * AKMl)) 

EA = (AO - .AOCAL) / AO 
DIR = DSQRT (AO / AOCAL) 


ABCD2653 
ABCD2654 
ABCD2655 
ABCD2656 
ABCD2657 
ABCD2658 
A3CD2659 
ABCD266C 
ABCD2661 
ABCD2662 
ABCD2653 
ABCD2664 
ABCD2665 
A3CD2666 
A3CD2667 
ABCD2663 
A BCD265 9 
ABCD26 7 0 
ABCD267 1 
ABCD2F 72 
ABCD2673 
ABCD2674 
A3CD2675 
ABCD2675 
A3CD2677 
A3CD2673 
ABCD2679 
A3CD2680 
A3CD26B 1 
ABCD2632 
A3CD26S3 
A8CD2 C 34 
ABCD2^ 85 
ABCD263P 
ABCD2637 
A3CD2693 
ABCD268 3 
ABCD2690 
ABCD2691 
A 3CD2692 
A3CD2693 
/ A3CD2694 
ABCD2695 
ABCD26P6 
ABCD2697 


CALL AFQUIR (Q ( 1) , TSO, EA , 0 . ODO, 1 00 . ODO , . 1 DO *TOLA LL , DI F , TSOT, JCON) ABCD2693 
GO TO (14,18,3), JCON ABCD2699 

14 TSO = TSOT ABCD2700 


IF (TSO - TI) 15,13,16 ABCD2701 

15 TSC = 2. ODO * TI / (AK + 1.0D0) ABCD2702 

IF (TSO .GT. TSC) GO TO 17 ABCD2703 

16 TSO = 0 . 58 DO * TI ABCD27Q4 


GO TO 13 


ABCD2705 


17 IF (Q ( 2) . LT. 30. ODO .OF. AMO . LT. 0.95D0 .OP. MAM .EO. 1) ABCD2706 
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1 GO TO 13 

TSO = 2.0DC * TI / (2.000 ♦ 0.98D0 * (AK - 1.0D0)) 

MAM = 1 
GO TO 13 

18 PSO = PIF * (TSO / TI) ** (AK / (AK - 1.0D0)) 

IF (PSO - PA) 20,19,27 

C *** CRITICAL FLOW, ISENTROPIC EXPANSION TO PA 

19 VO = AMO * CSO 
ICON = 1 

GO TO 9 

C *** SUBSONIC FLOW 

20 PSO = PA 

Q (2) = O.ODO 
Q (3) = O.ODO 
TSO = 0.633D0 * TI 
DO 22 J = 1,50 

CALL PROCOM (F AR ,TSO , CS 0, A K , CP, SEX , PHIS 0, HS 0) 

PHO = CAPS F * PSO / (AJ * REX * TSO) 

VO = WG / (RHO * AO) 

HSCAL = HI - VO ** 2 / GAJ 2 
DELHS = HSCAL - HSO 

IF (DABS (DELHS) . LE. .5D0 * TOLALL * HSCAL) GO TO 23 

22 TSO = TSO ♦ DELHS / CP 
GO TO 3 

23 AMO = VO / CSO 

PIR = PSO * (TI / TSO) ** (AK / (AK - 1 . 0 DO ) ) 

TSI = TSO 

24 CALL PROCOM ( F AR ,T ST , CS T , A K , C P , R EX , PH 1ST , HST) 

PST = PIR * (TST / TI) ** (AK / (AK - 1.9D0)) 

RHO = PST * CAPS F / (AJ * REX * TST) 

VT = WG / (RHO * AT) 

HSCAL = HI - VT ** 2 / GAJ 2 

EH = (HSCAL - HST) / HSCAL 

DIR = 1 . 0 DO + (HSCAL - HST) / (SP * TST) 

CALL AFQUIR (Q (1 ) , TST, EH, 0.0 DO, 20.0 DC, . 5 DO *TOL ALL , DIR , TSTT , JCON ) 
GO TO (25,26,3) , JCON 

25 TST = TSTT 

GO TO 24 

2c AMT = VT / CS T 

ICON = 1 
GO TO 9 

C *** SUPERCRITICAL FLOW, ISENTROPIC EXPANSION TO PA 
27 PSO = PA 

TSO = TI * (PSO / PIR) ** . 286D0 
DO 29 J = 1,50 

CALL PROCOM (F A R , TSO, CS O, A K , CP, R EX , PHISO, HS 0) 

PHICAL = PHII - REX * DLOG(PIR / PSO) 

DELPHI = PHICAL - PHISO 

IF (DABS (DELPHI) .LE. .IDO * TOLALL * PHICAL) GO TO 30 

29 TSO = TSO * DEXP(4.0D0 * DELPHI) 

GO TO 3 

30 VO = DSQRT (GAJ 2 * (HI - HSO)) 

AMO = VO / CSO 

AKP1 = AK ♦ 1.0D0 


ABCD2707 
ABCD27 03 
ABCD2709 
ABCD27 1 0 
ABCD2711 
ABCD27 1 2 
ABCD27 1 3 
ABCD2714 
ABCD27 1 5 
ABCD2716 
ABCD27 1 7 
ABCD27 1 3 
ABCD27 1 9 
A3CD2720 
ABCD2721 
A3CD2722 
ABCD2723 
ABCD2724 
AECD2725 
ABCD2726 
ABCD2727 
ABCD2723 
ABCD2729 
ABCD2730 
A3CD2731 
ABCD2732 
ABCP2733 
ABCD2734 
ABCD2735 
A3CD2735 
ABCD2737 
ABCD2733 
ABCD2739 
A3CD2 7 4 0 
A BCD 2 74 1 
A3CD2742 
ABCD2743 
ABCD2744 
ABCD2745 
ABCD274 5 
ABCD2747 
A3CD2749 
A3CD2749 
A3CD2750 
ABCD2751 
A3CD2752 
A3CD2753 
ABCD2754 
ABCD2755 
ABCD2756 
ABCD2757 
A3CD2758 
ABCD2759 
ABCD276D 
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AKM1 = AK - 1.0D0 

ABCD276 1 


AOID = (AT / AMO) * (2.CD0 * (1.0 DO + AKM 1 * AMO **2/2. 

ODO) / ABCD27S2 


1 AKP 1 ) ** ( AKP 1 / (2.0D0 * AKM1 ) ) 

ABCD2763 


ICON = 3 

ABCD2764 


N = 0 

ABCD2765 


IF (AO - AOID) 31,9,32 

ABCD2766 

c *** 

SUPERCRITICAL FLOW, ISENTROPIC EXPANSION TO AO 

ABCD2767 

31 

N = 1 

ABCD2769 

32 

TSO = 0.833D0 * TI 

ABCD2765 


DO 34 J = 1,100 

ABCD2770 


CALL PROCOH ( FAR, TSO , CSO, AK , CP, R EX , PHISO, HSO) 

ABCD277 1 


AKP 1 = AK * 1 .0D0 

ABCD2772 


AKH1 = AK - 1.CD0 

ABCD2773 


AMO = DSQRT (2 . 0 DO * ((TI / TSO) - 1.0D0) / AKM 1 ) 

ABCD2774 


AOCAL = (AT / AMO) * (2.OD0 * (1.0D0 + AKM 1 * AMO **2/2 

.ODO) / ABCD2775 


1 A KP 1 ) ** (AKP 1 / (2.0D0 * AKM1 ) ) 

ABCD2776 


DELA = AO - AOCAL 

ABCD2777 


IF (DABS (DELA) .LE. .IDO * TOLALL * AO) GO TO 35 

ABCD277 3 

34 

TSO = TSO * DSQRT (AOCAL / AO) 

ABCD2779 


GO TO 3 

ABCD2793 

35 

IF (N .LE. 0) GO TO 37 

ABCD278 1 

c *** 

UNDEREXPANDED, SHOCK OUTSIDE NOZZLE 

ABCD2782 


PSO * PIB * (TSO / TI) ** (AK / (AK - 1 . 0 DO ) ) 

ABCD2793 


VO = AMO * CSO 

ABCD2784 


GO TO 9 

ABCD2735 

c *** 

OVEREXPANDED, FIND SHOCK POSITION 

ABCD2786 

37 

PSX = PIR * (TSO / TI) ** (AK / (AK - 1.0D0)) 

ABCD2797 


PSY = PSX * (2 . 0 DO * AK * AMO ** 2 / (AK * 1.0D0) - (AK - 

I.ODO) /ABCD2793 


1 (AK + 1 . 0 DO) ) 

ABCD2789 


IF (PA .GE. PSY) GO TO 39 

ABCD2790 

c *** 

OVEREXPANDED, SHOCK OUTSIDE NOZZLE 

ABCD2791 


PSO = PSX 

ABCD2792 


VO = AMO * CSO 

ABCD2793 


GO TO 9 

ABCD2794 

c *** 

OVEREXPANDED, SHOCK INSIDE NOZZLE 

ABCD2795 

3 Q 

PSO = PA 

ABCD2795 


TSO = 0.833D0 * TI 

ABCD2797 


DO 41 J = 1,50 

ABCD2793 


CALL PROCOM (F AR ,TSO , CS 0, A K , C P, R EX , PHIS 0, HS 0) 

ABCD2799 


PHO = CAPS F * PSO / (AJ * REX * TSO) 

ABCD29 00 


VO = WG / (RHO * AO) 

ABCD280 1 


HSCAL = HI - VO ** 2 / GAJ2 

ABCD2802 


DELHS = HSCAL - HSO 

ABCD2803 


IF (DABS (DELHS) .LE. .5D0 * TOLALL * HSCAL) GO TO 42 

ABCD2804 

41 

TSO = TSO + DELHS / CP 

ABCD2805 


GO TO 3 

ABCD2806 

42 

AMO = VO / CSO 

ABCD2807 


TO = TI 

ABCD2808 


HO = HI 

ABCD2809 


PO = PSO * (TO / TSO) ** (AK / ( AK - I.ODO)) 

ABCD281 0 


SO = PHII - REX * DLOG(PO) 

ABCD281 1 


ICON = 2 

ABCD2812 


GO TO 10 

ABCD281 3 


END 

ABCD28 14 
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Subroutine CONOUT 


SUBROUTINE CONOUT (ICON) 

IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL SI 

COMMON /COMALL/ COM (1062) 

DIMENSION WORDY (368,2) , IOUT(150), AOUT (6) , WOUT(6,2), 

1 WOR1 1 (152) , WOR 21(1 52) , W0R31(64), WOR12(152), WOR22(152), 

2 WOR32 (64) , THEEND (2) , BLANK (2) , AIN(2), CHANGE (2) 

EQUIVALENCE (TIME, COM (993) ) , ( I TE A N ,COM ( 1 0 4 9) ) , (SI, COM ( 1 055) ) 

EQUIVALENCE (WOR1 1 ( 1) , WORDY ( 1 , 1 )) , (WOR21(1), WORD Y ( 1 53 , 1 ) ) , 

1 (WOR31 (1) , WORDY (305,1) ) , ( WCRl 2 ( 1 ) , WORDY (1 , 2) ) , 

2 (WOR22(1) , WORDY (153,2) ) , ( WOR3 2 ( 1 ) , WORDY (3 05 , 2) ) 

DATA WOR11 / 


1 

4HP 1 , 

4HH22 , 

4HAN23, 

4HWA23, 

4HT23 , 

4HP23 , 

4HH23 , 

4HS23 , 

2 

4HA24 , 

4HT24 , 

4HH24 , 

4HS24 , 

4 H AM25, 

4HT25 , 

4HP25 , 

4HH25 , 

3 

4HS25 , 

4HA28 , 

4HA28S, 

4HAM28, 

4HV28 , 

4HTS28 , 

4 H PS 2 8 , 

4 HT28 , 

4 

4HP28 , 

4HH28 , 

4HS23 , 

4HA29 , 

4 H A29S , 

4HAM29, 

4HV29 , 

4HTS29, 

5 

4HPS29, 

4HT29 , 

4HP29 , 

4HH29 , 

4HS29 , 

4HBYPA, 

4HWAD , 

4HWFD , 

6 

4HETAD, 

4HDPDU, 

4HDPDU , 

4HXXP1 , 

4HXWG2, 

4HXFAR, 

4HXT25, 

4 HXP25 , 

7 

4HXH25, 

4HXS25, 

4HXWG5, 

4HXFAR, 

4HXT55, 

4HXP55, 

4HXH55, 

4HXS55, 

8 

4HXWFB, 

4HXWFD, 

4HT2DS, 

4 HT2 , 

4HP2 , 

4HH2 , 

4 HS2 , 

4HS22 , 

9 

4HT22D, 

4HA25 , 

4HV25 , 

4HT4GU, 

4HT4DS, 

4HT5 , 

4HH5 , 

. 4HS5 , 

1 

4HWG5 , 

4HFAR5, 

4HAM55 , 

4HV55 , 

4HA55 , 

4HPS55, 

4HS6 , 

" 4 HPS6 , 

2 

4HV6 , 

4HTFHP, 

4HCNHP, 

4HETHP, 

4HDHHP, 

4HTFHP, 

4HCSHP, 

4 HETHP, 

3 

4HPRFC , 

4HETAF, 

4 HWAFC, 

4HPCNP, 

4HPRFD, 

4HETAF, 

4HWAFD, 

4HPCNC, 

4 

4HHPEX, 

4HDUMD, 

4HPRF , 

4HETAF, 

4HZCDS, 

4HCNF , 

4HWAFC, 

4 HZ F , 

5 

4HPCNF, 

4HPCBL, 

4HZI , 

4HPCNI, 

4HTFFI, 

4HCNIP, 

4HETAT, 

4 HDHTC, 

6 

4HDHTI, 

4HZIDS, 

4HPCNI, 

4HPCNI, 

4 HT 1 , 

4HH1 , 

4HS1 , 

4 HT 3 , 

7 

4HH3 , 

4HWA3 , 

4HWA3C, 

4 HT4 , 

4HH4 , 

4HS4 , 

4 HW G4 , 

4HFAR4, 

8 

4HT50 , 

4HH50 , 

4HS50 , 

4HWG50, 

4HFAR5, 

4HPCBL, 

4HPCBL, 

4 HPCBL, 

9 

4HPCBL, 

4HPCBL, 

4HCNHP, 

4 HETAP , 

4HDHTC, 

4HDHTC, 

4HTFFH, 

4HPPIC, 

1 

4HETAI, 

4HWAIC, 

4HETAB, 

4HPRID, 

4HETAI, 

4HWAID, 

4HWAIC, 

4HETAB 

DATA WOR21 / 







1 

4HWFBD, 

4HZFDS, 

4HETAR, 

4HETAI , 

4HPPI , 

4HETAB , 

4HWAC , 

4 HWFB , 

2 

4HBLC , 

4 HCS , 

4HAM , 

4HALTP, 

4 HDPCO, 

4HDPCO, 

4HPCNF, 

4 HXP 1 , 

3 

4HXT21 , 

4HXP21, 

4HXH21, 

4HXS21 , 

4HXH3 , 

4HXWAF, 

4HXWAC, 

4 HXBLF , 

4 

4HXBLD, 

4HWG37, 

4HA38 , 

4HAM33, 

4HV38 , 

4 HT 38 , 

4HH38 , 

4 HP 38 , 

5 

4HTS38, 

4HPS38, 

4HA39 , 

4HAM39, 

4HV39 , 

4HT39 , 

4HH39 , 

4HP39 , 

6 

4HTS39 , 

4HPS39, 

4HWA32 , 

4HDPWI, 

4HBPRI, 

4HFGMW, 

4 HFGPW , 

4HFNWI, 

7 

4HFNMA, 

4HFWOV, 

4HDPWG, 

4HDELF, 

4 HDELF, 

4HDELS, 

4HCVDW , 

4 HCVDN, 

8 

4HCVMN, 

4HVA , 

4HVJD , 

4HVJW , 

4 H V JM , 

4HWFT , 

4HWGT , 

4HSFC , 

9 

4HTFAB, 

4HFRD , 

4HFGMD, 

4HFGMM , 

4HFGPD, 

4HFGPN, 

4HFSM , 

4HFGP , 

1 

4HFG , 

4HFN , 

4 HFFOV , 

4HFC0V, 

4 HFMNO, 

4HFNOV, 

4HT21 , 

4HH21 , 

2 

4HS21 , 

4HWA21, 

4HT21D, 

4HT22 , 

4HWA22, 

4HS3 , 

4HWA32, 

4HT55 , 

3 

4HH55 , 

4HS55 , 

4HTFLP , 

4 HCNLP, 

4 H ETLP, 

4HTFIP, 

4HCNIP, 

4HETIP, 

4 

4HTFLP, 

4HCNLP, 

4HETLP, 

4HDHLP, 

4HTFIP, 

4HCNIP , 

4HETIP, 

4HDHIP, 

5 

4HTFFL, 

4 HCNLP, 

4HETAT, 

4HDHTC, 

4 HDHTF, 

4HPRCC, 

4HETAC, 

4HWACC, 

6 

4HPRCD, 

4HETAC, 

4 HWACD, 

4HZC , 

4HPCNC, 

4HPCBL, 

4HPCNC, 

4 HPCBL, 

7 

4HPCBL, 

4HCNC , 

4HPRC , 

4 HETAC, 

4HCNI , 

4HWACI, 

4HWAI , 

4 HBLI , 

8 

4HBLHP, 

4HBLIP, 

4HBLLP, 

4HBLF , 

4HBLDU, 

4HBLOB, 

4HWAF , 

4HWACC, 

9 

4HWG24 , 

4HFAR2, 

4HWG55 , 

4HFAR5, 

4HP6DS, 

4HAM6D, 

4HAM6 , 

4HA6 , 

1 

4HWG6C, 

4HWG6 , 

4HT6 , 

4HP6 , 

4HH6 , 

4HWG7 , 

4HFAR7, 

4 HFAR7 , 


ABCD281 5 
ABCD2816 
ABCD281 7 
ABCD2B13 
ABCD2819 
ABCD2820 
ABCD2821 
ABCD2822 
AECD2823 
ABCD2824 
ABCD2825 
ABCD2825 
ABCD2827 
ABCD2828 
ABCD232? 
ABCD2830 
ABCD283 1 
ABCD2832 
ABCD2833 
ABCD2834 
A3CD2835 
ABCD2836 
ABCD283 7 
A3CD2838 
ABCD2839 
A3CD2840 
ABCD284 1 
ABCD2842 
ABCD2843 
ABCD2844 
A3CD2845 
ABCD2846 
ABCD2847 
ABCD2848 
ABCD284 9 
ABCD285D 
ABCD285 1 
A BCD 2 852 
ABCD2853 
ABCD2854 
ABCD2855 
ABCD2856 
ABCD2B57 
ABCD2859 
ABCD2353 
ABCD2860 
ABCD286 1 
ABCD2P62 
ABCD2863 
ABCD2864 
ABCD2865 
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DATA W0R31 / 


ABCD2866 


22 

24 


1 

4HTS7 


4HPS7 


4HV7 , 

4HAM7 , 

4HA7 , 

4HT7DS, 

4HT7 


4 HH7 


ABCD2867 

2 

4HS7 


4HA8 


4HA8SA , 

4HTS8 , 

4HPS8 , 

4HV8 , 

4HAH9 


4 HT8 


ABCD2853 

3 

4HP8 


4HH8 


4HS8 , 

4HA9 , 

4HA9SA, 

4HTS9 , 

4HPS9 


4 HV9 


ABCD2869 

4 

4HAM9 


4 HT9 


4HP9 , 

4HH9 , 

4HS9 , 

4HETAA , 

c4HDPAF 


4HWFA 


ABCD2870 

5 

4HETAA 


4HETAA 


4HDPAF, 

4HXNHP, 

4HXNIP, 

4HXNLP, 

4HP22 


4 HU 22 


ABCD287 1 

6 

4HP21 


4HU21 


4HP3 , 

4HU3 , 

4HP4 , 

4HU4 , 

4HP50 


4H05O 


ABCD2872 

7 

4HP5 


4HU5 


4HP55 , 

4HU55 , 

4HP7 , 

4HU7 , 

4HP24 


4 HU 24 


ABCD287 3 

8 

4HP37 


4HU37 


4HDOMS, 

4HFXFN, 

4HFXM2, 

4HAFTF, 

4HFAN 


4 HISPO 

9 / 

ABCD2874 



DATA 

WOR12 / 







ABCD2875 

1 

3 * 

4H 

9 

4HDS 

9 

14 * 4H 

, 4 HA V , 9 * 4H 

, 4HA7 

9 

ABCD2875 

2 

8 * 

4H 

9 

4 HSS 

9 

3 * 4H 

, 4 HC , 4 HDS , 

4 H , 4 H4 

, ABCD2877 

3 

4H24 

9 

4 * 

4 H 

9 

4H5 

4H55 , 12 * 4H , 

4HS 


ABCD2879 

4 

16 * 

4H 

9 

4 * 

4HCF , 3 * 

4 HDS , 4HF , 4HCF , 4 HF 

9 

ABCD2879 

5 

4HDS 

9 

4HS 

9 

4HDS 

, 4 HS 

, 4 HGU , 4HT , 

4H1 


ABCD2980 

6 

7 * 

4H 

9 

4 HF 

9 

2 * 4H 

, 4HP , 4H 

2 * 4HIP 

9 

ABCD288 1 

7 

2 * 

4H 

9 

4 HD S 

9 

4HGU , 

6 * 4H , 4HDS , 

9 * 4H 

9 

ABCD28 3 2 

8 

4 HO 

9 

4 HHP 

9 

4 HIP 

, 4 HLP 

, 4HDU , 4HOB , 

4H 


A BCD 2 88 3 

9 

2 * 

4HHP 

9 

4H 

9 

4HP 

4HF , 4 HCF , 4HF 

, 4 HCF 

9 

ABCD2994 

1 

4HS 

9 

4 HDS 

9 

4 HS 

, 2 * 

4 HDS / 



ABCD2905 


DATA 

WOR22 / 







ABCD2835 

1 

4HS 

9 

11 * 

4H 

9 

4 HDS , 

4 Hfl , 0 HGU , 9 * 

4 H 

4 HO 

, ABCD2 887 


2 

3 

4 

5 

6 
7 


4 HNS , 
, 4 HFC 
4H 

4 HS 


4HNT 


4HNG , 
, 4H3 

2 * 4HLP , 
, 2 * 4H 
4H4 , 4H 

6 * 4H , 


4H 


17 * 4H , 4 HDS 
4HDS , 4HG. , 4HN , 

3 * 4 HFN , 4 HFD , 4 * 

8 * 4HCF , 4 HP , 4H 

4HF , 4HS , 4HDS , 

4HI , 4 HID , 16 * 4H 

8 4HSV , 2 * 4H , 4 HDS 
DATA WOR32 / 

1 10 * 4H , 4HV , 9 * 

2 2 * 4H , 4 HS V , 4HT 

3 4HAN , 4 H , 4HOL / 

DATA THEEND, BLANK, LIMIT /<•' HI HEE, 4 HND 
IF (ICON .EQ. 1) GO TO 24 
IF (SI) GO TO 22 
WRITE (6,21) 

GO TO 24 
WRITE (6,23) 

GO TO (1,6) , ICON 


23 * 


4HV 
4 H 


* 4 HNG , 
2 * 4HOZ 
7 * 4H 
4H 

, 4HC 
, 4H5 
4HS V / 

, 8 * 4H 
, 4 HPL 


4 HIN , 4 HFN 
, 17 * 4H 

, 6 * 4 HDS 
4 HF , 4 HCF 
, 4 HDS , 

, 4HAV , 


4 H 


, 2 * 4 HDS 
4 H2M , 4HCP 


4 H 


C *** INPUT SECTION 

1 DO 4 N = 1 , 150 

NUM = N 

READ (5,11) AIN, CHANGE 
IF (AIN ( 1 ) .EQ. THEEND ( 1 ) . 

DO 2 J = 1, LIMIT 
JJ = J 

IF (AIN (1) .EQ. WORDY ( J , 1) 

2 CONTINUE 

WRITE (6,12) AIN 
GO TO 4 

3 TOUT (NUM) = JJ 

IF (CHANGE ( 1) .EQ. BLANK (1 ) 
1 GO TO 4 


AND. AIN (2) .EQ. THEEND (2) ) GD TO 5 


.AND. AIN (2) .EQ. WORDY (J, 2) ) GO TO 3 


.AND. CHANGE (2) .EQ. BLANK ( 2) ) 


ABCD20B 3 
ABCD2839 
ABCD2890 
ABCD289 1 
ABCD2892 
ABCD2893 
ABCD2P94 
ABCD2895 
ABCD2895 
ABCD2897 
ABCD2898 
368 / ABCD2899 
ABCD2900 
ABCD2 Q 0 1 
ABCD2902 
ABCD2903 
APCD2904 
ABCD2905 
ABCD29C6 
ABCD2927 
A3CD2908 
ABCD2909 
ABCD291 0 
ABCD2911 
ABCD2912 
ABCD2913 
ABCD29 1 4 
A3CD291 5 
ABCD2916 
ABCD291 7 
A3CD2913 
A BCD 29 1 9 
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W0RDY(JJ,1) = CHANGE (1 ) 

WORDY ( J J, 2) = CHANGE (2) 

4 CONTINDE 
WRITE (6,13) 

5 NUM = NUM - 1 
RETURN 

C *** OUTPUT SECTION 

6 IF (NUB .EQ. 1) RETURN 

C 

C THE FOLLOWING THREE STATEMENTS ARE USED AT LEWIS ONLY 

IF (TIME .EQ. O.ODO .AND. ITRAN . NE. 1) GO TO 16 
WRITE (50,19) TIME, COM (248) , COM (257), COM (258) 

WRITE (50,20) (COM (I) , I = 372,394) 

C 

16 N = NUM 

J = 6 

DO 9 I = 1 , NUM , 6 
IF (N .GT. 6) GO TO 7 
J = N 

7 N = N - 6 

DO 8 K = 1 , J 
L = I + K - 1 
M = IOUT(L) 

WOUT (K, 1 ) = WORDY (M, 1 ) 

WOUT (K, 2) = WORDY (M, 2) 

IF (M .LE. 362) AOUT (K) = COM(M+32) 

IF (M .GT. 362 .AND. M .LE. 367) AOUT(K) = COM(M+694) 

IF (M .GT. 367) AOUT (K) = COM(1044) 

8 CONTINUE 

WRITE (6,14) (WOUT(K, 1) , WOUT(K,2), K = 1 , J) 

WRITE (6,15) (AOUT (K) ,K=1, J) 

IF (N .LE. 0) RETURN 

9 CONTINUE 
RETURN 

C 

C 

c 

11 FORMAT ( A4 , A2, 6X, A4, A2) 

12 FORMAT (1H0, 9HTHE WORD , A4, A2, 26H NOT FOUND IN COMMON ARRAY) 

13 FORMAT (22 HOERROR IN CONOUT INPUT) 

14 FORMAT ( 1 HO, 25X, A4, A2, 5(9X, A4, A2)) 

15 FORMAT (2 1 X , 6E15.6) 

C 

C THE FOLLOWING TWO FORMATS ARE USED AT LEWIS ONLY 

19 FORMAT (IX, 1PE20.6) 

20 FORMAT (IX, 1P6E20.6) 

C 

21 FORMAT (IX, 30HTHE OUTPUT IS IN ENGLISH UNITS) 

23 FORMAT (IX, 25HTHE OUTPUT IS IN SI UNITS) 

END 


ABCD2920 

ABCD2921 

A3CD2922 

A3C02923 

ABCD2924 

A3CD2925 

ABCD2926 

ABCD2927 

ABCD2928 

ABCD2929 

ABCD2930 

ABCD293 1 

ABCD2932 

ABCD2 Q 33 

A3CD2934 

ABCD2935 

ABCD2936 

ABCD2937 

ABCD2938 

ABCD2939 

ABCD2940 

ABCD2941 

A3CD2942 

A3CD2943 

ABCD294U 

AECD2945 

A 3CD2 0 4 5 

ABCD2947 

ABCD2948 

A3CD294 3 

ABCD2950 

ABCD295 1 

ABCD2952 

ABCD2953 

ABCD2954 

ABCD2955 

A6CD2955 

AECD2957 

ABCD2958 

ABCD2959 

AECD296D 

A BCD 29 6 1 

BBCD2952 

A BCD2 q 6 3 

ABC D2 9 6 4 

ABCD2965 

ABCD2965 

ABCD2967 

APCD2963 

ABCD296 9 
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non 


Subroutine CONVRG 


SUBROUTINE CONVRG (TI, HI, PI , SI, FAR , MG ,P A , IDE S, AO, PR , TO , HO, PO ,SO , AECD2970 


1 TSO, PSO, VO, AMO, ICON) 

ICON=1 SUBSONIC, COMPARE PI WITH PR 

IC0N=2 SONIC, COMPARE PI WITH PR 

IC0N=4 ERROR 

IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL ZI 

COMMON /COMALL/ COM (1062) 

EQUIVALENCE (TOLALL, COM(23)), (ZI, COM(1055)) 

IF (ZI) GO TO 100 
AJ = 778.26D0 
CAPSF = 2116.217D0 
G = 32. 174049D0 
CPG = . 250D0 
GO TO 101 
ICO AJ = 1.0D0 

CAPSF = 1.0 DO 
G = 1.0D0 
CPG = 1048. DO 

101 GAJ2 = 2.0D0 * G * AJ 

CALL PROCOM (FAR, TI , XX 1 , XX2, XX3, XX4 ,PHII , XX6 ) 

C *** SONIC CALCULATIONS 
TSS = 0.833D0 * TI 
DO 2 J = 1,50 

CALL PROCOM (F AR ,TSS , CSS , A KS , CP, REXS , PHISS, HSS) 

HSCAL = HI - CSS ** 2 / GAJ2 
DELHS = HSCAL - HSS 

IF (DABS (DELHS) .LB. . 5D0 * TOLALL * HSCAL) GO TO 4 

2 TSS = TSS + DELHS / CP 

3 ICON = 4 
RETURN 

4 IF (IDES .LE. 0) GO TO 12 

C *** ISENIROPIC EXPANSION CALCULATIONS 
TSI = TI * (PA / PI) ** 0. 2 86 DO 
DO 7 J = 1,70 

CALL THERMO ( PA , HSI , TS I , SS I , X XI , 1 , F AR , 0 ) 

IF ( DABS (SSI - SI) .LE. .1D0 * TOLALL * SI) GO TO 8 

7 TSI = TSI / DE XP ( (SSI - SI) / CPG) 

GO TO 3 

8 VIS = DSQRT (GAJ2 * (HI - HSI)) 

IF (VIS .GE. CSS) GO TO 11 

C *** SUBSONIC DESIGN, CALCULATE AO 
VO = VIS 
TSO = TSI 
PSO = PA 

CALL PROCOM (FAR, TSO, CSO ,XX2, XX3 , REX , PHISO, HSO) 

RHO = CAPSF * PSO / (AJ * PEX * TSO) 

AO = WG / (RHO * VO) 

AMO = VO / CSO 
PR = PI 
ICON = 1 
1C TO = TI 
HO = HI 
PO = PI 
SO = SI 


ABCD297 1 

ABCD2972 

ABCD2973 

ABCD2974 

AECD2975 

ABCD2975 

ABCD2977 

ABCD297 3 

ABCD2°79 

A3CD2980 

ABCD2981 

ABCD2932 

ABCD2983 

ABCD2984 

ABCD2985 

ABCD2986 

ABCD2987 

ABCD2983 

ABCD2989 

ABCD2990 

AECD299 1 

ABCD2992 

ABCD2993 

ABCD2994 

ABCD2995 

ABCD2996 

ABCD2997 

ABCD2993 

ABCD2999 

ABCD3000 

AECD3001 

ABCD3002 

ABCD3003 

ABCD3004 

ABCD3005 

AECD3006 

ABCD3007 

ABCD3008 

ABCD3009 

ABCD301 O 

ABCD301 1 

ABCD30 1 2 

ABCD301 3 

ABCD30 1 4 

ABCD301 5 

ABCD3016 

ABCD3017 

ABCD301 3 

ABCD3019 

ABCD3020 

ABCD3021 

ABCD3022 

ABCD3023 

ABCD3024 
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RETURN 

C *** SONIC DESIGN, CALCULATE AO 

11 VO = CSS 
TSO = TSS 

PSO = PI * (TSO / TI) ** (AKS / (AKS - 1.0D0)) 

RHO = CAPSF * PSO / (AJ * REXS * TSO) 

AO = WG / (RHO * VO) 

AMO = 1 . 0D0 
PR = PI 
ICON = 2 
GO TO 10 

C *** NON-DESIGN, CALCULATE CRITICAL CONDITIONS 

12 VO = CSS 
TSO = TSS 
PSO = PA 

RHO = CAPSF * PSO / (AJ * REXS * TSO) 

AOCRIT = WG / (RHO * VO) 

AMO = 1.0D0 

PR = PSO * (TI / TSO) ** (AKS / (AKS - 1.0D0)) 

IF (AO .GT. AOCRIT) GO TO 14 
C *** NON-DESIGN, CRITICAL AND SUPERCRITICAL CONDITIONS 
PSO = PSO * AOCRIT / AO 
PR = PR * AOCRIT / AO 
ICON = 2 
GO TO 10 

C *** NON-DESIGN, SUBSONIC CALCULATIONS 
14 PSO = PA 

TSO = 0.833D0 * TSO 
DO 16 J = 1,50 

CALL PROCOM (F AR , TSO , CS 0,A KO, CP, REX , PHISO, HSO) 

RHO = CAPSF * PSO / (AJ * REX * TSO) 

VO = WG / (RHO * AO) 

HSCAL = HI - VO ** 2 / GAJ2 
DELHS = HSCAL - HSO 

IF (DABS (DELHS) . LE. .5D0 * TOLALL * HSCAL) GO TO 17 

16 TSO = TSO ♦ DELHS / CP 
GO TO 3 

17 AMO = VO / CSO 

PR = PSO * (TI / TSO) ** (AKO / (AKO - 1.0D0)) 

ICON = 1 
GO TO 10 
END 

Function DERIV 


ABCD3025 
ABCD3026 
ABCD3027 
ABCD302 8 
ABCD302 9 
ABCD3030 
ABCD3031 
A3CD3032 
ABCD303 3 
A3CD3034 
ABCD3035 
A3CD3036 
A3CD3037 
ABCD303 3 
A3CD3039 
A8CD3040 
A3CD394 1 
A8CD3042 
ABCD3043 
A BCD 3 04 '4 
A3CD304 5 
A8CD30U 6 
ABCD3047 
A3CD3043 
A8CD3049 
ABCD3050 
ABCD303 1 
ABCD3052 
ABCD3053 
A8CD3054 
A3CD3055 
A3CD305S 
A3CD3057 
ABCD3053 
ABCD3059 
ABCD305D 
A3CD306 1 
A3CD3052 
ABCD3063 
ABCD3064 
ABCD3065 
A3CD3066 


FUNCTION DERIV (I,X) 

IMPLICIT REAL*8 (A-H,0-Z) 

COMMON /COMALL/ COM (1062) 

DIMENSION FO (50,4) , PVRDOT(23), XS (23) 

EQUIVALENCE (FO(^,1), COM (430) ) , (DT, COM (994) ) , 

1 (PVRDOT (1 ) , COM (998) ) , (XS(1), COM (1021)), ( JTRAN, COM(1050>), 

2 (IVRDOT, COM (1052)), (IAMTRX, COM (1054)) 

IF (IAMTRX .EQ. 1) GO TO 2 

IF (JTRAN .EQ. 1) GO TO 1 


ABCD3067 
ABCD306 3 
ABCD3069 
ABCD3070 
ABCD3 07 1 
A3CD3072 
ABCD307 3 
ABCD3074 
ABCD3075 
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noon 


DERIV = 0.0D0 
FO (1,1) = X 
FO(I,2) = X 
FO (1,3) = DERIV 
FO (I, 4) = DERIV 

RETURN 

1 XO = FO(I,2) 

DERIV = (X - XO) / DT 

IF (DABS (DERIV) .LT. 1.0D-10) DERIV = 0.0D0 
FO (1,1) = X 

FO (1,3) = DERIV 

RETURN 

2 IF (I *EQ. IVRDOT) GO TO 3 
DERIV = O.ODO 

RETURN 

3 DERIV = XS (I) * PVRDOT (I) 

RETURN 

END 


ABCD3076 
ABCD3077 
ABCD3073 
ABCD3079 
ABCD3030 
ABCD3081 
ABCD3032 
ABCD3083 
ABCD3 08'4 
ABCD3085 
ABCD308S 
ABCD3087 
ABCD3099 
ABCD3089 
ABCD3090 
ABCD3091 
ABCD3092 
ABCD3093 


Subroutine DISTRB 


c 

c 

c 

c 


c 

c 

c 

c 

c 


SUBROUTINE DISTRB 
IMPLICIT R EAL*8 (A-H r O-Z) 

COMMON /COMALL/ COM (1062) 

DOUBLE PRECISION LWV, MHV 

DIMENSION XV AF ( 23) , PVRD0T(23), XS(23) 

DIMENSION XSAVE (1062) , AINV(529), ARINV (529) , A{23,23), 

1 A21INV (23,23) , A22INV (2 3, 2 3) , AR(23,23), CINT(23,23), X(23, 23), 

2 A12INV (23,23) , DINT(23,23>, BINT(50,23), CA(50,23), C(50,23), 

3 CR (50 , 23) , UVAR (50 ,23) , AIBM(23,5), B(23,5), BR{23,5), Y(50,5), 

4 D(50, 5) , DR (50, 5) , XSS(23), YI(23), USS(50), DU(5), BS (5) , 

5 PVRDOS (23) 

DIMENSION LBV (23) , MWV(23), IVARB(23), NUCOM(50) 

EQUIVALENCE (IDES, COM (3) ) , (JDES, COM (4)), (MODE, COM (6) ) , 

1 (INIT, COM (7) ) , (PS55, COM (110)), (WAFC, COM(135)), 

2 (WFB, COM ( 192) ) , (A8, COM(346)), (XVAR(1), COM(372)), 

3 (PVRDOT ( 1 ) , COM (998 ) ) , (XS(1), COM(1021)), (ITRAN, COH(1049)), 

4 ( JTRAN, COM (1050)) , (IVRDOT, COM(1052)), (IDOT, COM(1053)), 

5 (IAMTRX, COM (1054)), (HAFCDS , COM(1062)) 

INV THE TOTAL NUMBER OF STATES POSSIBLE FOR THE PARTICULAR 

ENGINE BEING MODELLED, LESS THAN OR EQUAL TO 23 

DATA INV / 16 / 

IN V RED THE TOTAL NUMBER OF STATES ACTUALLY USED IN THE MODEL 
(FULL OR REDUCED) , LESS THAN OR EQUAL TO INV 

DATA INVRED / 9 / 

IVARB THE ORDER IN WHICH THE STATES ARE TO BE DONE. IF THIS 

IS A REDUCED MODEL, THE STATES TO BE INCLUDED ARE 
LISTED BEFORE THOSE NOT INCLUDED. 


ABCD309 4 

ABCD3C95 

ABCD3006 

ABCD3097 

ABCD3039 

ABCD3099 

A3CD3100 

ABCD3101 

A3CD3102 

ABCD3 103 

ABCD3104 

ABCD3105 

ABCD3106 

ABCD3107 

A3CD3109 

A3CD3109 

ABCD31 10 

ABCD31 1 1 

ABCD3112 

A3CD3113 

ABCD3114 

ABCD3115 

ABCD3116 

ABCD3117 

ABCD3 116 

ABCD3119 

A BCD 3 1 20 

A3CD3121 

A3CD3122 

ABCD3 123 

ABCD3124 

A3CD3125 

ABCD3126 
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DATA IVARB / 1, 3, 21, 13, 19, 9, 8, 11, 20, 5, 13, 17, 12, 10, 
14, 16, 7 * 0 / 

INB THE NUMBER OF CONTROL INPUTS, LESS THAN OF EQUAL TO 5 

DATA INB / 2 / 

BPER A PERCENT. THE STEADY STATE VALUE OF EACH INPUT HILL EE 

MULTIPLIED BY THIS PERCENT TO FORM THE DELTA U OF EACH 
INPUT IN ORDER TO CALCULATE THE B AND D MATRICES 

DATA BPER / .01D0 / 

INC THE NUMBER OF OUTPUTS, LESS THAN OR EQUAL TO 50 

DATA INC / 3 / 

NUCOM A LIST OF THE EQUIVALENCED "COM" NUMBERS OF THE OUTPUTS 

DESIRED. ALL OF THE EQUIVALENCES HILL BE FOUND IN THE 
MAIN ROUTINE, DYGABCD 

DATA NUCOM / 248, 257, 258, 47 * 0 / 


IF THE A AND C MATRIX CALCS ARE FINISHED, GO ON TO THE B AND D 
MATRIX CALCS 

IF (IB .EQ. 977) GO TO 4 

IF THIS IS NOT THE FIRST TIME THROUGH, GO TO 7 

IF ( IDOT .GT. 0) GO TO 7 
IGIN = 0 
IBCK = 0 
ABCK = 1.0D-5 

IF THE PROGRAM IS TO CALCULATE THE PVRDOT'S, ICHOIC=1 
IF THE PROGRAM IS TO SET THE PVRDOT'S, ICHOIC=0 


ICHOIC = 1 
PVRDOT 


A VECTOR OF (INITIAL CONDITION) PERCENTS. THE STEADY 
STATE VALUE OF EACH STATE WILL BE MULTIPLIED BY THE 
PERCENT ASSOCIATED WITH THAT STATE TO FORM THE DELTA 
X DOT FOR THAT PARTICULAR STATE IN ORDER TO CALCULATF 
THE A MATRIX 


CORE ROTOR SPEED 
PVRDOT ( 1 ) = . 02D0 

INTERMEDIATE ROTOR SPEED 


ABCD3127 
ABCD3123 
A BCD 3 1 29 
ABCD3130 
A3CD3131 
ABCD31 32 
A3CD3133 
A BCD 3 13 4 
ABCD3135 
ABCD3136 
ABCD3137 
ABCD3138 
A3CD3139 
ABCD3140 
ABCD3141 
ABCD3142 
ABCD3143 
ABCD31U4 
ABCD3145 
A3CD3 145 
A BCD 3 1 4 7 
ABCD31UB 
ABCD3 149 
A3CD3150 
ABCD315 1 
ABCD3 1^2 
ABCD3153 
ABCD3154 
ABCD3 155 
A BCD 3 1 5 6 
ABCD3157 
ABCD3158 
ABCD3 159 
ABCD3 153 
A BCD 3 161 
ABCD3162 
ABCD3163 
ABCD3 164 
ABCD3165 
ABCD3 155 
ABCD3157 
ABCD3153 
A BCD 3 16 9 
ABCD3170 
ABCD3171 
ABCD3172 
ABCD3173 
ABCD3174 
ABCD3175 
A BCD 3 176 
ABCD3177 
A BCD 3 1 78 
A8CD3179 
A BCD 318 0 
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PVEDOT (2) = O.ODO 

FAN ROTOR SPEED 

PVEDOT (3) = . 02DC 

FAN EXIT PRESS UR E 

PVEDOT (4) = .02D0 

FAN EXIT INTERNAL ENERGY 

PVEDOT (5) = . 0 2D0 

INTERMEDIATE COMPRESSOR EXIT PRESSUFE 
PVRDOT (6) = O.ODO 

INTERMEDIATE COMPRESSOR EXIT INTERNAL ENERGY 

PVRDOT (7 ) = O.ODO 

COMPRESSOR EXIT PRESSURE 

PVRDOT (8) = . 02D0 

COMPRESSOR EXIT INTERNAL ENERGY 

PVRDOT (9) = . 02D0 

COMBUSTOR EXIT PRESSURE 

PVRDOT (10) = . 02D0 

COMBUSTOR EXIT INTERNAL ENERGY 

PVRDOT (11) = . 02D0 

HIGH PRESSURE TURBINE EXIT PRESSURE 
PVEDOT (12) = . 02 DO 

HIGH PRESSURE TURBINE EXIT INTERNAL ENERGY 
PVRDOT (13) * . 02D0 

INTERMEDIATE PRESSURE TURBINE EXIT PRESSURE 
PVRDOT (14) = O.ODO 

INTERMEDIATE PRESSURE TURBINE EXIT INTERNAL ENERGY 
PVRDOT (15) = O.ODO 


ABCD3181 

ABCD3132 

ABCD3183 

ABCD3184 

ABCD31 85 

ABCD3185 

ABCD3187 

ABCD3138 

A BCD 3 183 

ABCD319C 

ABCD3191 

ABCD3192 

ABCD3193 

ABCD3194 

ABCD3195 

A3CD3196 

A BCD 3 1 97 

ABCD31 98 

ABCD3199 

ABCD3209 

ABCD3231 

ABCD3202 

ABCD3203 

ABCD3204 

ABCD3205 

ABCD3206 

ABCD320 7 

ABCD320B 

ABCD3209 

ABCD321 0 

ABCD321 1 

ABCD3212 

ABCD3213 

ABCD321 4 

ABCD32 1 5 

ABCD321 5 

ABCD321 7 

ABCD3218 

ABCD321 9 

ABCD3220 

ABCD322 1 

ABCD3222 

ABCD3223 

ABCD3224 

ABCD3225 

ABCD3226 

ABCD3227 

ABCD3223 

ABCD3229 

ABCD3230 

ABCD3231 

ABCD3232 

ABCD3233 

ABCD3234 
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LOW PRESSURE TURBINE EXIT PRESSURE 
PVRDOT (16) = .02D0 

LOW PRESSURE TURBINE EXIT INTERNAL ENERGY 
PVRDOT (17) = . 02D0 

AFTERBURNER EXIT PRESSURE 
PVRD0T(18) = . 02D0 
AFTERBURNER EXIT INTERNAL ENERGY 
PVRDOT (19) = . 02DO 

DUCT BURNER EXIT PRESSURE 
PVRDOT (20) = . 02D0 

DUCT BURNER EXIT INTERNAL ENERGY 
PVRDOT (21 ) = . 02D0 

THIRD STREAM EXIT PRESSURE 
PVRDOT (22) = O.ODO 

THIRD STREAM EXIT INTERNAL ENERGY 

PVRDOT (23) = O.ODO 
7 CONTINUE 

IDOT = IDOT + 1 

IF (IDOT .GT. INV) GO TO 10 

IVRDOT = IVARB (IDOT) 

IF (IDOT .NE. 1) GO TO 10 
C 

C SAVE STEADY STATE VALUES AND INITIALIZE 

C FOR A AND C MATRIX CALCS 

C 

DO 5 1 = 1 , I N V 

J = IVARB (I) 

XS(J) = XVAR(J) 

XSS(I) = XVAR (J) 

IF (XSS(I) .EQ. O.ODO) WRITE (6,50) 

5 CONTINUE 

DO 96 I = 1, INC 
IU = NUCOM(I) 

95 USS (I) = COM (IU) 

DO 1 I = 1,1062 
1 XSAVE(I) = COM (I) 

WRITE (6,65) 

WRITE (6,44) (XSS(I), I = 1,INV) 


AECD3235- 
A BCD 323 6 
ABCD3237 
ABCD3238 
ABCD3233 
ABCD3240 
ABCD32'41 
ABCD3242 
ABCD3243 
ABCD3244 
ABCD324 5 
ARCD3245 
ABCD324 7 
ABCD324B 
ABCD3249 
ABCD3250 
ABCD3251 
ABCD3252 
ABCD3253 
ABCD3254 
A3CD3255 
ABCD3256 
A3CD3257 
A3CD3258 
ABCD3259 
ABCD3260 
ABCD3261 
ABCD3252 
ABCD325 3 
ABCD3264 
ABCD326 5 
ABCD3266 
ABCD3257 
ABCD326B 
ABCD3269 
ABCD3270 
ABCD3271 
ABCD3272 
ABCD3273 
ABCD3274 
ABCD3275 
ABCD3276 
ABCD3277 
ABCD3273 
ABCD3279 
ABCD3233 
ABCD3281 
ABCD3282 
ABCD3283 
ABCD3284 
ABCD3235 
ABCD3286 
ABCD3287 
ABCD3288 
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10 

c 

c 

c 

15 


9 

18 

16 


17 

23 

97 


RETURN 

IDOT1 = IDOT - 1 

GENERATE MATRIX FOR A MATRIX CALCS 

DO 15 I = 1, INV 
J = IVARB(I) 

X (I, IDOT1) = XVAR(J) - XSS(I) 

J = I VARB (IDOT 1 ) 

IF ( ICHOIC .EQ. 0) GO TO 23 

ERRX = DABS (X (IDOT1 ,IDOT1) / XSS (IDOT1) ) - .002D0 

IF (DABS (ERRX) .LE. .00001D0) 30 TO 17 

IDOT = IDOT1 

IVRDOT = IVARB (IDOT) 

IGIN = IGIN + 1 

IF (DABS (X (1 , IDOT1) ) . NE. O.CDO) GOTO 18 

PVRP = PVSDOT(J) 

PVRDOT(J) = 2.0DC * PVRDOT (J) 

IF (ERRX .EQ. ERBXP .OR. IBCK . NE. 0) GO TO 9 

PVRDOT ( J) = 1.5D0 * PVRP ♦ ABCK 

ABCK = 2 . 0 DO * ABCK 

ERR XP = ERRX 

IBCK = 1 

GO TO 23 

IF (IGIN .NE. 1) GO TO 16 
IBCK = 0 

PVRP = PVRDOT (J) 

ERRX P = ERRX 

PVRDOT (J) = 1 . 05 DO * PVRDOT (J) 

GO TO 23 

PVRNEH = (PVRDOT (J) * ERRXP - PVRP * ERRX) / (ERRXP - ERRX) 

IBCK = 0 

IF (PVRNEH .LE. 0.0D0) PVRNEH = .95D0 * PVRDOT(J) 

IF (IGIN .EQ. 50) PVRNEH = ((PVRDOT (J) + PVRP) / 2.0DO) 4- 

IF (IGIN .EQ. 100) PVRNEH = ((PVRDOT(J) * PVRP) / 2.0D0) ♦ 

PVRP = PVRDOT (J) 

ERF.XP = ERRX 
PVRDOT (J) = PVRNEH 

GO TO 23 

GENERATE MATRIX FOR C MATRIX CALCS 

IGIN = 0 
IBCK = 0 
ABCK = 1.0D-5 

IF (PVRDOT (J) .LE. 0.0D0) PVRDOT (J) = ABCK 

DO 97 I = 1 , I NC 
ID = NUCOM (I) 

UV AR (1,1 DOT 1 ) = COM (TO) - IJSS (I) 

HRITE (6,45) IDOT1 , I VARB (I DOT1 ) 

HRITE (6,60) 

HRITE (6,44) (X(I,IDOT1), I = 1,INV) 

HRITE (6,282) IGIN 
HRITE (6,296) PVRDOT (J) 


ABCD3289 
ABCD329D 
ABCD3291 
ABCD329 2 
ABCD3293 
ABCD329 4 
ABCD3295 
ABCD3295 
ABCD3297 
ABCD3293 
ABCD3299 
ABCD3303 
ABCD3301 
ABCD3302 
A3CD3393 
A BCD 3 3 0 4 
ABCD3305 
ABCD330 6 
ABCD3307 
ABCD3309 
ABCD3309 
ABCD3313 
ABCD331 1 
ABCD3312 
ABCD331 3 
A3CD3 31 4 
A3CD331 5 
A3CD331 5 
ABCD3 31 7 
A3CD331 8 
A BCD 3 3 1 9 
ABCD3320 
ABCD3321 
ID-3 ABCD3322 
. ID-2 ABCD332 3 
ABCD3324 
ABCD3325 
ABCD3325 
ABCD3327 
ABCD3323 
A BCD 3 329 
A3CD333D 
ABCD3331 
ABCD3332 
ABCD3333 
ABCD3334 
A3CD3335 
ABCD3336 
ABCD3337 
ABCD3338 
ABCD3333 
ABCD3340 
ABCD334 1 
ABCD3342 
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IABTSV = IAMTRX 

ABCD3343 


IVRSV = IVRDOT 

ABCD3344 


IDOTSV = IDOT 

ABCD3345 


DO 19 I = 1,23 

ABCD334 5 

19 

PVRDOS (I) = PVRDOT(I) 

ABCD3347 

C 


ABCD3348 

C 

RESET STEADY STATE VALUES 

ABCD3349 

c 


ABCD3353 


DO 21 I = 1,1062 

ABCD3351 

21 

COM(I) = XSAVE(I) 

ABCD3352 


IAMTRX = IAMTSV 

ABCD3353 


IVRDOT = IVRSV 

ABCD3354 


IDOT = IDOTSV 

ABCD3355 


DO 22 I = 1,23 

A3CD3355 

22 

PVRDOT (I) = PVRDOS (I) 

ABCD3357 


IF ( IGIN .NE. 0) RETURN 

ABCD3358 


IF (IDOT .LE. INV) RETURN 

ABCD3359 

C 


ABCD3360 

C 

FINAL CALCS FOR A AND C MATRICES 

ABCD3361 

c 


ABCD3362 

25 

DO 24 I = 1 , I N V 

A3CD3363 


J = IV ARB ( I) 

A3CD3364 

24 

YI (I) = I.ODO / XSS(I) / PVRDOT ( J) 

A BCD 3 36 5 


WRITE (6,55) 

ABCD3365 


WRITE (6,44) (YI (I) , I = 1 , IN V ) 

A BCD 3 36 7 


WRITE (6,75) 

A5CD3353 


DO 31 J = 1 , I N V 

ABCD3369 


DO 30 I = 1 , IN V 

AECD337 0 


K = INV * (J-1) + I 

ABCD3371 

30 

AIN V (K) = YI(J) * X (I, J) 

ABCD3372 


LL = K - INV + 1 

ABCD3373 


WRITE (6,44) (A INV (I) , I = LL, K) 

ABCD3374 

31 

CONTINUE 

ABCD3375 


DO 46 J = 1 , I N VRED 

ABCD3 376 


DO 46 I = 1 , IN VRED 

ABCD3377 


K = I N VRED * (J - 1) I 

ABCD337B 

46 

ARINV(K) = YI (J) * X(I,J) 

ABCD3379 


L = I N VRED ♦ 1 

A BCD 3 3 3 0 


IF (L .GT. INV) GO TO 49 

A3CD3331 

C 


ABCD3332 

C 

A12TNV, A211NV, AND A22INV ARK NECESSARY FOR C 

: AND D MATRIX ABCD33 a 3 

c 

CALCS IN REDUCED FORM 

ABCD3364 

c 


ABCD3385 


DO 47 J = 1, INVRED 

A3CD3386 


DO 47 I = L , I N V 

ABCD 3 39 7 


A12INV (J, I) = Y I ( I) * X(J,I) 

A3CD3393 

47 

A21INV(I,J) = YI ( J) * X(I,J) 

ABCD 3 339 


DO 48 J = L, IN V 

ARCD3390 


DO 48 I = L, INV 

ABCD339 1 

48 

A22INV (I, J) = YI (J) * X(I,J) 

ABCD3392 

49 

CONTINUE 

ABCD3393 


DO 98 J = 1 , INV 

ABCP3394 


DO 98 I = 1 , INC 

ABCD339 5 

98 

CA (I, J) = YI (J) * UVAR (I,J) 

ABCD3396 
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CALL DHINV (AINV, INV, 

DET, LWV, HHV) 


ABCD3397 


IF (DET .EQ. 0.CD0) WRITE (6,70) 


A3CD3393 


DO 32 J = 1 , INV 



ABCD3399 


DO 32 I = 1, INV 



ABCD3400 


K = INV * (J-1) ♦ I 



ABCD3401 

32 

A (I, J) = AINV (K) 



ABCD34 02 


WRITE (6,80) 



ABCD3403 

C 




ABCD3404 

c 

THE FOLLOWING STATEMENT 

IS USED AT LEWIS 

ONLY 

ABCD3405 

c 

WRITE (10) A 



ABCD3405 

c 




ABCD3407 


DO 100 K = 1 , IN V 



ABCD3408 


DO 100 1=1 ,INC 



ABCD3409 


SOM = 0.0D0 



ABCD34 1 0 


DO 99 J = 1 , IN V 



ABCD341 1 

99 

SUM = SOM + C A ( I , J) * A ( J, K) 


ABCD34 12 

100 

C(I,K) = SUM 



ABCD3413 

C 




ABCD34 1 4 

C 

THE FOLLOWING STATEMENT 

IS USED AT LEWIS 

ONLY 

ABCD3415 

C 

WRITE (20) C 



ABCD3416 

C 




ABCD34 1 7 


DO 33 J = 1 , IN V 



ABCD34 1 8 


WRITE (6,44) ( A (J, I) , 

I = 1 , 1 N V) 


ABCD34 1 9 

33 

CONTINUE 



ABCD3420 


WRITE (6,81) 



ABCD342 1 


DO 101 J = 1 , INC 



ABCD3422 


WRITE (6,44) (C (J,I) , 

I = 1 , 1 N V) 


ABCD3423 

101 

CONTINUE 



ABCD3424 

c 




ABCD3425 

c 

RESET STEADY STATE VALUES AND INITIALIZE 


ABCD3426 

c 

FOR B AND D MATRIX CALCS 


ABCD3427 

c 




ABCD3428 


IB = 977 



ABCD3429 


JDOT = 0 



ABCD3430 


DO 26 I = 1, 1062 



ABCD3431 

26 

COM (I) = XSAVE(I) 



ABCD3432 


DO 76 1=1, INC 



ABCD3433 


IU = NUCOM (I) 



ABCD3434 

76 

USS(I) = COM (ID) 



ABCD343 5 


DO 34 I = 1 , INV 



ABCD34 36 

34 

PVR DOT (I) = O.ODO 



ABCD3437 


BS ( 1 ) = WFB 



ABCD3438 


BS (2) = A8 



ABCD3439 


BS (3) = X3 



ABCD344 0 


BS (4) = X4 



ABCD3441 


BS (5) = X5 



ABCD3442 


DO 27 I = 1,5 



ABCD3443 

27 

DU (I) = BPER * BS (I) 



ABCD3444 

4 

IF (JDOT .EQ. 1) GO TO 

35 


ABCD3445 


DO 2 1 = 1 ,IN V 



ABCD3446 


J = IV ARB ( I) 



ABCD3447 

2 

XSS(I) = XVAR (J) 



ABCD3448 


DO 6 I = 1,1062 



ABCD3449 

6 

XSAVE(I) = COM (I ) 



ABCD3450 
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IAMTRX = 1 


A BCD 34 5 1 


ITRAN = 0 


ABCD3452 


IDOT = 0 


A BCD 3 4 53 


IDES = 0 


ABCD3454 


MODE = 2 


ABCD3455 


JDOT = 1 


ABCD3455 


WFB = WFB + DU (1) 


ABCD3457 


RETURN 


ABCD3458 

35 

IDOT = IDOT ♦ 1 


ABCD3459 

C 



ABCD3450 

C 

GENERATE MATRIX FOR 

B MATRIX CALCS 

A BCD 3 4 61 

C 



ABCD3462 


DO 36 I = 1,INV 


ABCD346 3 


J = IV ARB (I) 


ABCD3464 

36 

AIBM (I , IDOT) = (XVAR(J) - XSS (I) ) / DU (IDOT) 

ABCD3465 

C 



ABCD3465 

C 

GENERATE MATRIX FOR 

D MATRIX CALCS 

ABCD3467 

c 



ABCD34S3 


DO 77 I = 1 , INC 


ABCD3469 


IU = NUCOM(I) 


ABCD3470 

77 

7(1, IDOT) = (COM (IU) 

- USS (I) ) / DU (IDOT) 

ABCD3471 

C 



ABCD3472 

c 

RESET STEADY STATE VALUES 

ABCD347 3 

c 



ABCD3474 


IAMTSV = IAMTRX 


ABCD3475 


HODESV * MODE 


ABCD3476 


IDE S V = IDES 


ABCD3477 


ITRASV = ITRAN 


ABCD3 478 


IDOTSV = IDOT 


ABCD3479 


DO 29 I = 1,1062 


ABCD3480 

29 

COM (I) = XSAVE(I) 


ABCD34P 1 


IAMTRX = I AMTS V 


ABCD3482 


MODE = MODES V 


ABCD3483 


IDE J a IDES V 


ABCD3484 


ITRAN = ITRASV 


ABCD3495 


IDOT = IDOTSV 


ABCD3486 

8 

IF (IDOT .GE. INB) 

GO TO 28 

ABCD3497 


GO TO (11,12,13,14) , 

IDOT 

ABCD3488 

11 

A8 = &8 + DU (2) 


ABCD3499 


RETURN 


A8CD3490 

12 

X3 = X3 + DU (3) 


ABCD3491 


RETURN 


ABCD3492 

13 

X4 = X4 * DU ( 4 ) 


ABCD3493 


RETURN 


ABCD3494 

14 

X5 = X5 + DU (5) 


ABCD3495 


RETURN 


ABCD3496 

C 



ABCD3 4 9 7 

C 

FINAL CALCS FOR B MATRIX 

ABCD3U98 

c 



ABCD3499 

28 

DO 38 K = 1 , 1 NB 


ABCD3500 


DO 38 I = 1, INV 


ABCD350 1 


SUM = 0.0D0 


ABCD3 502 


DO 37 J = 1 , INV 


ABCD3503 

37 

SUM = SUM - (A (I , J) 

* AIBM ( J, K) ) 

ABCD3 504 


105 



38 

B(I,K) 

= SUM 



A3CD3505 

C 





ABCD3505 

c 

THE FOLLOWING STATEMENT IS USED AT LEWIS ONLY 

ABCD3507 

c 

WRITE 

(15) B 



ABCD3503 

c 





ABCD3509 

c 





ALSCD3513 

c 

FINAL 

CALCS FOP D MATRIX 



ABCD351 1 

c 





ABCD351 2 


DO 87 

K = 1 , INS 



ABCD351 3 


DO 37 

1=1, INC 



A BCD35 1 4 


SUM = 

0. 0D0 



ABCD351 5 


DO 86 

J = 1 , IN V 



ABCD351S 

86 

SUM = 

SUM + C (I, J) * A I B K ( J , 

K) 


ABCD351 7 

87 

D(I,K) 

= Y (I, K) - SUM 



ABCD351 8 

C 





ABCD351 9 

c 

THE FOLLOWING STATEMENT IS U 

S 3D AT LEWIS ONLY 

ABCD352P 

c 

WHITE 

(25) D 



ABCD3521 

c 





ABCD3522 


WHITE 

(6,85) 



ABCD3523 


GO TO 

(39,40,4 1 ,42,43) , IN3 



A BCD 3 52 4 

39 

WRITE 

(6,91) ((B(I,J), J = 

1.INB) , 

I = 1 , IN V) 

A3CD3525 


GO TO 

110 



A3CD3525 

40 

WRITE 

(6,92) ( (B (I, J) , J = 

1 , I NB) , 

I = 1 , INV) 

A3CD352 7 


GO TO 

110 



A3CD3523 

41 

WRITE 

(6,93) ( (B (I,J) , J = 

1.INB) , 

I = 1,11V) 

ABCD3529 


GO TO 

110 



ABCD3530 

42 

WRITE 

(6,94) ( (B (I, J) , J = 

1 » I N 3) , 

1=1, INV) 

ABCD3531 


GO TO 

110 



ABCD3532 

43 

WRITE 

(6,95) ( (B (I, J) , J = 

1, INB) , 

I = 1 , INV) 

ABCD3533 

110 

WRITE 

(6,82) 



ABCD3534 


GO TO 

( 11 1, 112, 1 13, 1 14, 1 15) , 

I N B 


ABCD3535 

111 

WRITE 

(6,91) ( (D (I,J) , J = 

1, I NB) , 

r = 1 , in c) 

A3CD353S 


GO TO 

200 



ABCD3537 

112 

WRITE 

(6,92) ((D (I, J) , J = 

1.INB) , 

T = 1 , INC) 

ABCD3533 


GO TO 

200 



A BCD 3 S3 9 

113 

WRITE 

(6,93) ( (D (I, J) , J = 

1,1 "B) , 

I = 1 , INC) 

A BCD 3 54 0 


GO TO 

200 



A3CD3541 

114 

WRITE 

(6,94) ( (D(I, J) , J = 

1 , I’JR) , 

I = 1 , I N C ) 

ABCD35U2 


GO TO 

200 



ABCD3543 

115 

WRITE 

(6,95) ( (D(I,J) , J = 

1 , I NB) , 

I = 1 , INC) 

A3CD35«4 

200 

IF (L 

• GT. INV) STOP 



A BCD3 3'4 5 

C 





ABCD3546 

C 

CALCULATIONS FOR ALL MATRICES OF REDUCED ORDER MODEL 

ABCD3547 

c 





A BCD 3 54 3 

c 

FINAL 

CALCS FOR REDUCED A MATRIX 


A8CD354 9 

c 





ABCD3550 


CALL DMINV (ARINV, INVRED, DET, LWV, 

M W V) 

ABCD355 1 


DO 201 

J = 1, INVRED 



ABCD3552 


DO 201 

I = 1, INVRED 



A3CD355 3 


K = INVRED * (J - 1) + I 



A3CD355U 

201 

AR (I, J) = ARINV (K) 



ABCD3555 

c 





A3CD3556 

c 

FINAL 

CALCS FOE REDUCED B MATRIX 


ABCD3557 

c 





ABCD3658 
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DO 203 K = 

1 , INB 

ABC03559 


DO 203 I = 

1 , IN VRED 

ABCD35SD 


SOM = O.ODO 


ABCD3561 


DO 202 0 = 

1 , IN VRED 

ABCD3 56 2 

202 

SOM = SOM - 

AR (I,J) * AIBM (J,K) 

ABCD3563 

203 

BR(I,K) = sun 

A3CD35 c 4 

C 



ABCD3565 

c 

FINAL CALCS 

FOR REDUCED C MATRIX 

ABCD3566 

c 



ABCD3567 


DO 205 K = 

1 , IN VRED 

ABCD3569 


DO 205 I = 

L , I N V 

ABCD3569 


SOM = O.ODO 


ABCD3570 


DO 204 J = 

1 ,INVRED 

ABCD357 1 

204 

SOM = SOM ♦ 

A21INV (I,J) * AR (J, K) 

ABCD3572 

205 

CINT (I, K) = 

SUM 

ABCD3573 


DO 2 07 K = 

1 , IN VRED 

A BCD 3 57 4 


DO 207 I = 

1, INC 

ABCD3S75 


SOM = O.ODO 


A BCD 3 5 76 


DO 206 J = 

L, INV 

ABCD3577 

206 

SOM = SOM + 

C (I,J) * Cl NT ( J , K) 

A8CD3579 

207 

CR (I,K) = C (I,K) + SUM 

ABCD3579 

C 



ABCD358D 

C 

FINAL CALCS 

FOR REDUCED D MATRIX 

ABCD3581 

c 



A3CD3592 


DO 209 K = 

L,INV 

A BCD 3 5 B’ 


DO 209 I = 

1 , INVRED 

A BCD3 c B 4 


SUM = O.ODO 


A3CD35B5 


DO 208 J = 

1 , IN VRED 

A3CD3595 

20 8 

SUM = SUM + 

AR (I, J) * A 1 2l N V ( J, K) 

A BCD 3 5 87 

209 

CINT ( I, K) = 

SUM 

ABCD3586 


DO 211 K = 

L,INV 

A BCD3 5 ° 9 


DO 211 I = 

L r IN V 

ABCD3590 


SUM = O.ODO 


ABCD355 1 


DO 210 J = 

1 , INVRED 

ABCD3592 

210 

SUM = SUM + 

A2 1 1NV ( I # J) * CINT ( J , K) 

A B C D 3 5 B 3 

21 1 

DINT (I , K) = 

SUM - A22INV (I, K) 

ABCD3594 


DO 213 K = 

h, INV 

ABCD3595 


DO 213 I = 

1 ,INC 

ABCD3595 


SUM = O.ODO 


A3CD3E97 


DO 212 J = 

L , I N V 

A3CD3 C 9 J 

212 

SUM = SUM + 

C(I,J) * DINT ( J # K ) 

ABCD3599 

213 

BINT (I , K) = 

SUM 

AECD360D 


DO 103 K = 

1 , INB 

A3CD3601 


DO 103 I = 

1, INC 

A BCD3 B C 2 


SUM = O.ODO 


ABCD3603 


DO 102 J = 

L, INV 

A. B C D 3 6 0 '4 

102 

SUM = SUM + 

BINT (1, J) * B(J,K) 

ABCD’605 

103 

DR ( I , K) = SUM + D(I,K) 

ABCD3606 


WRITE (6,214) 

ABCD360 7 


DO 218 I = 

1 , INVRED 

A BCD 3 c 0° 


WRITE (6,44) 

(AR (I, J) , J = 1, INVRED) 

ABCD3609 

218 

CONTINUE 


ABCD3MD 


WRITE (6,215) 

ABCD36 1 1 


GOTO (219,220,221,222,223), INB 

ABCD3612 
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219 

WRITE 

(6,91) 

(<BR (I,J) , J = 1,INB) , 

I = 

1, INVPED) 

ABCD361 3 


GO TO 

224 




ABCD3614 

220 

WRITE 

(6,92) 

( (BR (I , J) , J = 1 , INB) , 

I = 

1, INVRED) 

ABCD361 5 


GO TO 

224 




ABCD3615 

221 

WRITE 

(6,93) 

(<BR(I,J) , J = 1,INB) , 

I = 

1, INVPED) 

ABCD 3 61 7 


GO TO 

224 




ABCD3618 

222 

WRITE 

(6,94) 

( (BP (I,J) , J = 1 , INB) , 

I = 

1, INVPED) 

ABCD3619 


GO TO 

224 



ABCD 3 62 0 

22 3 

WRITE 

(6,95) 

( (BR (I, J) , J = 1 » I N B ) , 

I = 

1 , INVRED) 

ABCD3621 

224 

WRITE 

(6,216) 



ABCD3622 


DO 225 

J = 

1 , IN C 



ABCD3 62 3 


WRITE 

(6,44) 

(CP (J,I) , I = 1 , INV RED) 



A BCD 3 62 4 

225 

CONTINUE 




ABCD3625 


WRITE 

(6,217) 



ABCD 3 6 26 


GO TO 

(226,227,228,229,230), INB 



AECD3 627 

226 

WRITE 

(6,91) 

( (DP <I,J) , J = 1 , INB) , 

I = 

1, INC) 

ABCD3628 


STOP 




ABCD3629 

227 

WRITE 

(6,92) 

( (DR (I, J) , J = 1, INB) , 

I = 

1 , INC) 

ABCD3630 


STOP 




ABCD3631 

228 

WRITE 

(6,93) 

( (DR (I , J) , J = 1 , INB) , 

I = 

1 ,INC) 

ABCD3632 


STOP 




ABCD3633 

229 

WRITE 

(6,94) 

( (DP (I,J) , J = 1 , INB ) , 

I = 

1 ,INC) 

ABCD3634 


STOP 




ABCD3635 

230 

WRITE 

(6,95) 

( (DR (I, J) , J = 1 , INB) , 

I = 

1 , TNC) 

ABCD3636 


STOP 




ABCD3637 

44 

FORMAT 

(1P10E12.4) 



ABCD3638 

45 

FORMAT 

(IX, 

15, 2X , • THE V API ABLE IS 

NO. • 

. 13) 

ABCD3639 

50 

FORMAT 

(IX, 

• THE S.S. VARIABLE IS 0.0 

1 ) 


AECD364C 

55 

FORMAT 

(IX, 

• Y INVERSE = ' ) 



A3CD364 1 

60 

FORMAT 

(IX, 

• THIS COLUMN OF X = ' ) 



ABCD3642 

65 

FORMAT 

(IX, 

' THIS IS THE S.S. SOLUTION • ) 


ABCD3643 

70 

FORMAT 

(IX, 

' AINV IS SINGULAR ' ) 



ABCD3644 

75 

FORMAT 

(IX, 

7HAINV = ) 



ABCD3645 

80 

FORMAT 

(IX, 

4HA = ) 



ABCD364? 

81 

FORMAT 

(IX, 

4 HC = ) 



ABCD3647 

82 

FORMAT 

(IX, 

4 HD = ) 



ABCD3643 

85 

FORMAT 

(IX, 

4 HB = ) 



ABCD3649 

91 

FORMAT 

(IX, 

1PE12.4) 



ABCD3650 

92 

FORMAT 

(IX, 

1P2E12.4) 



ABCD3651 

93 

FORMAT 

(IX, 

1P3E12.4) 



ABCD3652 

94 

FORMAT 

(IX, 

1P4E12.4) 



ABCD3653 

95 

FORMAT 

(IX, 

1P5E12.4) 



ABCD3654 

214 

FORMAT 

(IX, 

5HAR = ) 



ABCD3655 

215 

FORMAT 

(IX, 

5 HBR = ) 



ABCD365S 

216 

FORMAT 

(IX, 

5HCR = ) 



ABCD 3 65 7 

217 

FORMAT 

(IX, 

5HDR = ) 



ABCD3658 

280 

FORMAT 

( 1 H 1 ) 



ABCD3659 

262 

FORMAT 

(IX, 

• I GIN = • , 15) 



A3CD3660 

296 

FORMAT 

(IX, 

•THE NEXT TRY FOP PVRDOT = 

•, 1PE12.4) 

ABCD3651 


END 




ABCD3662 


108 


Subroutine ENGBAL 


SUBROUTINE ENGBAL 


ABCD3663 


C 


100 

101 


IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL EPRER, DUMSPL, FXFN2M, FXM2CP, FAN 
COMMON /COMALL/ COM (1062) 

DIMENSION HOED (2) , ERR (9) 

DIMENSION VAR (9 ) , DEL (9 ) , ERRB (9) , DELV AR (9 ) , EMAT(9,9), VMAT(9) 
1 AMAT (9) , DELSAV (9) , AHORD (2) 

EQUIVALENCE (HORD(1), COM(1)), (MODE, COM(6)), (INIT, COM (7) ) , 

1 (ITRYS, COM (18)), (LOOPER, COM(19)), (NOMAP, COM (20) ) , 

2 (NUMMAP, COM (21)), (MAPEDG, COM (22) ) , (TOLALL, COM (23)), 

3 (ERR (1 ) , COM (24) ) , (TFHPDS , COM(118)), (ZF, COM(136(), 

4 (PCNF, COM (137) ) , (ZI, COM(139)), (PCNI, COM(140)), 

5 (TFFIP, COM (141)) , (T4 , COM(156)), (TFFHP, COM (175)), 

6 (TFLPDS, COM (275)), (TFIPDS, COM (278)), (TFFLP, COM (289)), 

7 <ZC, COM (300) ) , (PCNC, COM (301)), (TIME, CON(993)), 

8 (DT, COM (994 ) ) , (TF, COM(995)), (ISPOOL, COM(1044)), 

9 (IIRAN, COM ( 1 04 9) ) , ( JTRAN , COM (1050)), (NSTEP, COM(1051)), 

1 (IAMTFX, COM (1054) ) , (ERRER, COM(1056)), (DUMSPL, COM (1057)), 

2 (FXFN2M, COM (1058)), (FXM2CP, COM (1059)), (FAN, COM(1061)) 

DATA AHORD /4HENGB, 4HAL / 

DATA VDELTA , VLIM, VCHNGE , NOMISX /1.0D-4, 0.1D0, 0.85D0, 4/ 

DATA DEL /9*0.0D0/ 

DATA DELSAV /9*1.0D-4/ 

IF (ITRAN .NE. 1) GO TO 130 
CALL S Y G ( 1 ) 

JTRAN = 1 
INIT = 1 

NSTEP = NSTEP ♦ 1 

IF (IA MTBX . EQ. 1) NSTFP = NSTEP - 1 _ 

TIME = DT * DFLOAT (NSTEP) 

IF (TIME .GT. TF) GO TO 100 
CALL DISTRB 
CALL COINLT 
GO TO 101 

IF (IAMTRX .EQ. 1) C ALL DI. S TRB . — 

IF (IAMTRX .EQ. 1) CALL COINLT . . 

IF (IAMTRX " .NE. 1) CALL PUTIN 

IF (INIT .EQ. 1) GO TO 1 

TFFHP = TFHPDS 

TFFIP = TFIPDS 

IF (FXM2CP) TFFIP = TFHPDS 

TFFLP = TFLPDS 

LOOPER = 0 

NUMMAP = 0 

NOMISS = 0 

LOOP = 0 

MISMAT = 0 

NOMAP = 0 

IGO = 2 

DO 3 I = 1,9 

VMAT(I) = 0.0DO 

AMAT (I) = O.ODO 

DELVAR(I) = O.ODO 

DO 3 L = 1,9 


ABCD3664 
ABCD3665 
A3CD3666 
A3CD3657 
, A3C03653 
ABCD366 13 
ABCD3673 
A BCD 3 67 1 
ABCD3672 
A BCD. 3 673 
A3CD3674 
ABCD3675 
ABCD 3676 
ABCD3677 
ABCD 3 67 8 
ABCD 3 67 9 
ABCD 3^8? 
A BCD 3 681 
ABC03 6 B 2 
ABCD 3683 
ABCD3684 
ARCD3685 
A3CD3685 
A BCD 3 68 7 
ABCD3693 
ABCD36R9 
ABCD3590 
ABCD 3 691 
ABCD3692 
ABCD3693 
A BCD 3 6? 4 
ABCD3695 
ABCD3696 
ABCD3697 
ABCD 3 6 9B 
ABCD3699 
ABCD 3700 
ABCD37 0 1 
A BCD 3 7 02 
ABCD37G 3 
ABCD3704 
ABCD3705 
ABCD37 05 
ABCD 3 707 
ABCD37 09 
ABCD3709 
ABCD3713 
ABCD371 1 
ABCD371 2 
ABCD37 1 3 
ABC0371 4 
ABCD3715 
ABCD3716 
ABCD3717 
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3 

EMAT(I,L) = 0.0D0 

ABCD3713 

4 

LOOPER = LOOPER + 1 

A3CD371 9 


CALL COFAN 

ABCD3720 


WORD { 1) = A WORD (1) 

ABCD3721 


WORD (2) = AWOBD ( 2) 

ABCD3722 


IF (.NOT. FAN) DUMSPL = .TRUE. 

ABCD3723 


IF (LOOPER ,LE. ITRYS) GO TO 45 

ABCD3724 


ERRER = .TRUE. 

ABCD3725 


GO TO 26 

ABCD3726 

45 

IF (NOMAP .GT. 0) GO TO 2 

ABCD3727 


NUMMAP = 0 

ABCD3723 

5 

VAR (1) = ZF * 100. 0D0 

ABCD3729 


V AR ( 2) = PCNF 

ABCD3733 


IF (NODE .EQ. 3) VAR (2) = T 4 / 10.0DO 

ABCD3731 


VAR (3) = ZC * 100. 0D0 

A3CD3732 


VAR («) = PC NC 

ABCD3733 


IF (NODE .EQ. 1) VAR (4 ) = T4 / 10.0D0 

ABCD3734 


VAR (5) = TFFHP 

ABCD3735 


VAR (6) = TFFLP 

ABCD3736 


VAR (7) = ZI * 100. 0D0 

ABCD3737 


VAR (8) = PC NI 

ABCD3738 


VAR (9) = TFFIP 

ABCD373 9 


NN A X = 9 

A8CD3740 


IF (FAN) GO TO 39 

ABCD3741 


NMAX = 6 

A3CD3742 


IF (ISPOOL .EQ. 2) GO TO 7 

ABCD3743 


NN A X = 3 

A3CD3744 


VAR (3) = TFFLP 

A BCD 3 74 5 


GO TO 7 

ABCD374S 

35 

IF (.NOT. FXFN2M .AND. (.NOT. DUMSPL)) GO TO 6 

ABCD3747 


NN AX = 7 

A8CD3 74 3 


IF (DUNSPL) NNA X = 6 

ABCD3749 

6 

IF (.NOT. FXN2CP) GO TO 7 

ABCD375D 


NMAX = 7 

A BC 0 3 75 1 


VAR (4 ) = PCNI 

ARCD3752 


VAR (5) = TFFIP 

ABCD3753 

7 

DO 8 I = 1 , NMAX 

A BCD 3 754 


IF (DABS (EFR (I) ) .GI. TOLALL) GO TO 9 

ABCD3755 

8 

CONTINUE 

ABCD 3756 


IF (ITKAN .EQ. 1) CALL ROLL 

ABCD3757 


CALL PEFF 

ABCD 3 759 


CALL ERROR 

A3CD375? 

9 

IF (LOOP .GT. 0) GO TO 11 

A3CD3T60 


NAPEDG = 0 

A BCD 3 7 51 


MAPSET = 0 

ABCD 376 2 


DO 10 I = 1, NMAX 

A. B C D ’ 7 r> 3 


ERRB(I) = ERR (I) 

ABCD37b4 

10 

DEL (I) = VDELTA * VAR (I) 

ABCD3755 


GO TO 14 

A3CD3766 

11 

IF (MISMAT .GT. 0) GO TO 29 

ABCD3767 


IF (MAPEDG .EQ. 0) GO TO 12 

A.BCD3753 


NAPEDG = 0 

A3CD3769 


MAPSET = 1 

ABCD3770 


VAR (LOOP) = VAF (LOOP) + 2.0D0 * DEL (LOOP) 

ABCD3771 
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GO TO 15 

12 IF (MAPSET .EQ. 0) VAE (LOOP) = VAR (LOOP) «■ DEL(LOOP) 
IF (MAPSET .EQ. 1) VAR (LOOP) = VAR (LOOP) - DEL (LOOP) 
MAPSET = 0 

DO 13 I = 1 , NMAX 

IF (DEL (LOOP) .NE. 0.0D0) DELSAV(LOOP) = DEL(LOOP) 

IF (DEL (LOOP) .EQ. 0.0D0) DEL(LOOP) = DELSAV(LOOP) 

13 EMAT (I , LOOP) = (ERRB(I) - ERR (I) ) / DEL(LOOP) 

14 LOOP = LOOP ♦ 1 

IF (LOOP .GT. NMAX) GO TO 17 
VAR (LOOP) = VAR (LOOP) - DEL (LOOP) 

15 ZF = VAR (1 ) / 100. 0D0 

IF (MODE .NE. 3) PCNF = VAP (2) 

IF (MODE .EQ. 3) T4 = VAR (2) * 10.0D0 

ZC = VAR (3) / 100. 0D0 

IF (MODE .NE. 1) PCNC = VAR (4) 

IF (MODE .EQ. 1) T4 = VAR(4) * 10.0D0 
TFFHP = VAR (5) 

TFFLP = VAR (6) 

ZI = VAR (7) / 100. 0D0 
PCNI = VAR (8) 

TFFIP = VAR (9) 

IF (.NOT. FXN2CP) GO TO 16 
PCNI = VAR (4) 

TFFIP = VAR (5) 

16 IF (ISPOOL .EQ. 1) TFFLP = VAR(3) 

IF (ZI .LT. 0.0D0) ZI = 0.05D0 
IF (ZF .LT. 0.0D0) ZF = 0.05DO 

IF (ZC .LT. 0.0D0) ZC = 0.05D0 
GO TO (2,4) , IGO 

17 DO 18 I = 1 , NMAX 

18 AMAT(I) = - ERRB(I) 

DO 20 I = 1 , N M A X 
IZERO = 0 

DO 19 LOOP = 1 , NMAX 

IF (EMAT (I, LOOP) . EQ . O.ODC) IZ^RD = IZERO + 1 

19 CONTINUE 

IF (IZERO .LT. NMAX) GO TO 20 

WRITE (6,32) I 
LOOPER = ITRYS + IOC 

GO TO 26 

20 CONTINUE 

DO 22 LOOP = 1 , NMAX 

IZERO = 0 

DO 21 I = 1 , N M A X 

21 IF (EMAT (I, LOOP) .EQ. 0.0D0) IZERO = IZERO + 1 

IF (IZERO .LT. NMAX) GO TO 22 

WRITE (6,33) LOOP 
LOOPER = ITRYS + 100 
GO TO 26 

22 CONTINUE 

23 CALL MATRIX (EM AT, V MAT , A MAT , NMAX ) 

LBIG = 0 

VARBIG = 0.0D0 


ABCD3772 
ABCD3773 
ABCD3774 
ABCD3775 
ABCD3775 
ABCD 3777 
ABCD3773 

ABCD 3 77 9 

ABCD37 3 3 
ABCD3781 
ABCD3732 
ABCD3793 
A BCD 3 7 Q 4 
A3CD3785 
ABCD 3 786 
ABCD3737 
A3CD3788 
A3CD3789 
ABCD3793 
A BCD 3 7 9 1 
ABCD3792 
A3CD3793 
A3CD3794 
A BCD 3 705 
A3CD3 79 5 
A BCD 3 7 c 7 
A3CD3793 
A n C D 0 7 9 ' 3 
f 0 C D 3 0 D 
A BCD 3 a " 1 
ABCD3°''2 
A F C 0 3 7 " 3 
A 3 r D 

A B C 0 3 n 7 5 
A B C D 3 8 0 e 
ABC!) 3 UA 7 
f 3 C D 7 1; " 8 
A BCD 3 3 D 9 
A BC03M 0 
A 3 C D 3 p 1 1 
A BCD 3° 1 ? 
1 5CD3«1 7 
A BCD 3 7 1i* 
ABCD 7 81 5 
A3CJ3H16 
A BCD 7 6 1 7 
ABCD381 3 
A BCD 3 Q 1 9 
ABCD3820 
A3CD382 1 
AECD3 S ?2 
A3CD3 Q 23 
A3CD3824 
A BCD 3 82 5 
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24 


25 


26 

27 

28 


29 

30 

31 


C 

C 

32 

33 

34 

35 

36 

37 


39 


DO 24 L = 1 , NMAX 
ABSVAH = DABS (VMAT (L) ) 

IF (ABSVAR . LE . VLIM * VAR(L)) GO TO 24 

IF (ABSVAR .LE. VARBIG) GO TO 24 

LBIG = L 

VARBIG = ABSVAR 

CONTINUE 

VRATIO = I.ODO 

IF (LBIG ,GT. 0) VRATIO = VLIM * V AR (LBIG) / VARBIG 

ERRAVE = 0.0D0 

VMTAVE = 0.0D0 

DELAVE = 0.0D0 

FNBAX = NrtAX 

DO 25 L = 1, NMAX 

DELVAR(L) = VRATIO * VMAT (L) 

ERRAVE = ERRAVE + DABS (AMAT (L) ) / FNMAX 

VAR (L) = VAR (L) + DELVAF. (L) 

VMTAVE = VMTAVE «• DA BS ( V MAT ( L) ) / FNMAX 
DELAVE = DELAVE + D ABS ( DEL V AR ( L) ) / FNMAX 
IF (MISMAT .GT. 0) GO TO 31 

IF (NOMISS .EQ. 0) MISMAT = 1 

IF (MISMAT . EQ. 0) IGO = 1 
WRITE (8,34) LOOPER 
DO 27 I = 1 , N M A X 

WRITE (8,35) AMAT(I) , (EMAT(I,L) ,L=1 ,9) , VMAT (I) ,DELVAR (I) ,VAR(I) 

WRITE (9,36) ERRAVE, VMTAVE, DELAVE 

IF (LOOPER .LT. ITRYS) GO TO 15 

CALL ERROR 

RETURN 

VMTAVX = VMTAVE 
DO 30 I = 1 , NMAX 
AMAT (I) = - ERR (I) 

GO TO 23 

WRITE (8,37) AMAT, ERRAVE, DELVAR, DELAVE, VMAT, VMTAVE, VAR 
MISMAT = MISMAT + 1 

IF (VMTAVE .LT. VCHNGE * VMTAVX) GO TO 28 
WRITE ' (8,38) 

IF (MISMAT .LT. NOMISX) NOMISS = 1 

MISMAT = 0 

LOOP = 0 

IGO = 2 

GO TO 5 


FORMAT (4HOROW,I2, 16H IS ZERO IN EMAT) 

FORMAT (7H0 COLUMN, 12, 16H IS ZERO IN EMAT) 

FORMAT (8HB EH R3, 28 X , 23H ERR OR MATRIX AFTEP LOOP , 1 4 , 2 9 X , 4 H V MAT , 

1 6X,6HDELVAR,7X,14HVARIABLE$$$$$$) 

FORMAT ( 1 HO , F8 . 4 , 1 0F9 . 3, 2F 1 1 . 4, 6H$$ $$$$) 

FORMAT (1H0,F8. 4, 32X,14H AVERAGE V ALUES , 3 1 X, 2F 1 1 . 4 , 6 H$$ $$$$ ) 
FORMAT ( 1 2 HO A MAT , 13 F 1 1 . 5 , 6H $$$$$$,/, 1 2H DELVAR, 

1 10F1 1. 6, 6H $$$$$$,/, 12H VMAT,10F11.6,6H$$$$$$,/, 

2 12H VAR,9F11.6,6HS$$$S$) 

FORMAT ( 1H0,50X, 22HCHANGE TOO SMALL$$$$$$) 


ABCD3R25 
ABCD3827 
ABCD3829 
ABCD3829 
ABCD3830 
ABCD3831 
ABCD3832 
A BCD3 8 3 3 
A BCD 38 3 « 
ABCD3 835 
A BCD3 8 36 
ABCD3837 
A BCD 3 9 39 
ABCD3839 
ABCD3 8 '4 0 
A BCD 3 84 1 
ABCD3842 
ABCD3943 
ABCD3P44 
A3CD3845 
A8CD3846 
A BCD 3 84 7 
ABCD384 3 
ABCD38U 9 
ABCD38 50 
ABCD385 1 
ABCD3352 
ABCD3853 
ABCD3854 
ABCD3855 
ABCD3855 
A3CD385 7 
ABCD3859 
ABCD3359 
A3CD3860 
ABCD3861 
A3CD386 2 
A3CD386 3 
ABCD3864 
ABCD3865 
ABCD38S5 
A BCD 3 86 7 
ABCD3869 
ABCD3869 
ABCD3870 
ABCD3871 
ABCD3872 
ABCD387 3 
ABCD3874 
ABCD3875 
ABCD3876 
ABCD3877 
ABCD3878 
ABCD3R79 


END 


ABCD3 8 8 0 
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OD'siCNCn.erujtvjon 


Subroutine ERROR 


SUBROUTINE ERROR 
IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL ERRER, DUMSPL, FXFN2M, FXM2CP, AFTFAN, FAN 
COMMON /COMALL/ COM (1062) 

DIMENSION WORD (2) 

DIMENSION ASORD (2) 

EQUIVALENCE (WORD(1), COM(1)) r (MODE, COM{6)), (IDUMP, COM (8)), 

I (LOOPER, COM (19)), (ZF, COM(136)), (PCNF, COM(137)), 

> (ZI, COM ( 1 39) ) , (PC NI , COM (140)), ( T4 , COM(156)), (ZC, COM(300)) 

5 (PCNC, COM (301) ) , (ISPOOL, CON(1044)), (ICOAFB, COM( 1045)), 

t (ICODIJC, COM (1046)), (ICOMIX, COM (1047)), (ERREP, COM (1056)), 

> (DUMSPL, COM (1057)), (FXFN2M , COM(1058)), (FXM2CP, CDM(1059)), 
j (AFTFAN, COM (1060)), (FAN, COM(1061)) 


DATA AWORD 

/4HCOMM, 

4 H ON 

/ 


IF 

(ICOAFB 

.LT. 

D 

ICOAFB 

= 0 


IF 

(ICOMIX 

.LT. 

D 

ICOMIX 

- 0 


IF 

(ICODUC 

.LT. 

D 

ICODUC 

= 0 


IF 

(ICOAFB 

.NE. 

0) 

WRITE 

(6,10) 

ICOAFB 

IF 

(ICODUC 

.NE. 

0) 

WRITE 

(6,11) 

ICODUC 

IF (ICOMIX .NE. 
ERRER = .TRUE. 

0) 

WRITE 

(6,12) 

ICOMIX 


WRITE (6,2) WORD 
WORD ( 1 ) = AWORD(I) 

WORD (2) = AWORD (2) 

WRITE (6,3) WORD, ZF, PCNF, ZI,PCNI,ZC, PCNC, T4, MODE 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 


(6.4) 

(6.5) 
(6,4) 
( 6 , 8 ) 
(6,4) 
(6,7) 


(COM (I) , I = 33,394) 

DUMSPL, FXFN2M, FXM2CP, AFTFAN, FAN, ISPOOL 


LOOPER 
EQ. 0) 


GO TO 1 


IF (IDUMP . E 
WRITE (6,6) 
CALL SYG (2) 
CALL ENGBAL 
RETURN 


FORMAT (28H0AN ERROR HAS BEEN FOUND IN , A4, A2) 
FORMAT (1H0,A4,A2,9X,7E15.6,I4) 

FORMAT (2H0 ) 

FORMAT ( 1 H ,8E15.6) 

FORMAT ( 1 H 1 ) 

FORMAT (25H0FAILED TO CONVERGE AFTER, 14, 6H LOOPS) 
FORMAT ( 1 H ,5E15.6,I12) 

FORMAT (27 H THE ERROR IN COAFBN IS AT ,13) 

FORMAT (27H THE ERROR IN C0DUCT IS AT ,13) 

FORMAT (27 H THE ERROR IN COMIX IS AT ,13) 


A3CD3P81 
ABCD3832 
A 3CD 3 8 B 3 
AECD3884 
ABCD3895 
ABCD3885 
ABCD3887 
A3CD3888 
A.BCD388 9 
A3CD3890 
ABCD389 1 
ABCD38 Q 2 
A3CD3893 
ABCD3994 
ABCD3895 
ABCD3895 
ABCD3 897 
ABCD3 8 u 8 
ABCD389? 
AbCQ3 9 D 0 
ABCD3°01 
A BCD 3 902 
ABCD3933 
ABCD3904 
ABCD3905 
A BCD 3 906 
ABCD3907 
ABCD390S 
ABCD3909 
ABCD391 0 
ABCD391 1 
ABCD391 2 
A3CD3913 
ABCD3914 
ABCD391 5 
A3CD3916 
A BCD 3 917 
ABCD391 3 
A3CD391? 
ABCD3923 
ABCD3921 
ABCD3S22 
ABCD3923 
ABCD3 Q 24 
ABCD3925 
ABCD3926 
AECD3927 
A BCD 3 92 B 
ABCD3929 
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Subroutine ETAAB 


1 

3 

4 


5 


6 


7 


8 


SUBROUTINE ETAAB (FAR , EM6 , P6 , BT A, ET A ADS , ETA AS V, P6DS , P6 DS AV , AM6DS , 
1 AM6DSV,IDES, FAR7DS, FAR7SV) 

IMPLICIT REAL*8 (A-H.O-Z) 

DIMENSION TFAR(25), ETABRT (2 5) , EM6T(7), DELH6 (7) , P6T(14), 

1 DELP6 (14) , X (3) , Y (3) 

DATA TFAR/.039DO, . 0585D0, .0732D0, .0878D0, .0976DO, .1171D0, 

1 . 1 268D0, .1463D0, .1619D0, .1834D0, .1951D0, .2195D0, .2439D0, 

2 .2927D0, .3415D0, .4146D0, .4534D0, .5366D0, .6341D0, .7317D0, 

3 .8293D0, . 9268D0, 1.0D0, 1.0634D0, 1.7D0/ 

DATA ETABRT/. 94D0, .9887D0, 1.0193D0, 1.0306D0, 1.0227D0, 

1 . 9672D0, .9377D0, .9207D0, .9354D0, .9626D0, .9773D0, 1.0193D0, 

2 1.0532DO, 1.077D0, 1.0781D0, 1.077D0, 1.0747D0, 1.0668D0, 

3 1.0578D0, 1.051D0, 1.0374D0, 1.0192D0, 1.0D0, .9626D0, .9151D0/ 

DATA EM6T/1.0D0, 1.071D0, 1.19D0, 1.309D0, 1.428D0, 1.547D0, 

1 1.666D0 / 

DATA DELM6/0.0D0, .013D0, .041D0, .073D0, .11D0, . 147D0, .187D0/ 
DATA P6T/.22D0, .2267D0, .25D0, .3D0, .3333D0, .3767D0, .4167D0, 
1 . 5D0 , . 583 3D0 , .5556D0, .75D0, .8333D0, .9167D0, 1.0DO/ 

DATA DELP6/-. 142D0, -.125D0, -.IDO, -.075D0, -.062D0, -.05D0, 

1 - . 04 1 DO , -.027D0, -.019D0, -.013D0 , -.008D0, -.004D0, -.0021D0, 

2 0.0D0/ 

IF (IDES .NE. 1) GO TO 5 
EMULT = ETAADS / ETAASV 
FMULT = FAR7DS / FAR7SV 
AMULT = AM6DS / AM6DSV 
PMULT = P6DS / P6DSAV 
DO 1 K = 1,25 

ETABRT (K) = ETABRT ( K) * EMULT 

TFAR (K) = TFAR(K) * FMULT 

DO 3 K = 1,7 

EM6T ( K) = EM6T (K) * AMULT 

DO 4 M = 1 , 14 

P6T (M) = P6T(M) * PMULT 

ETAASV = ETAADS 

P6DSAV = P6DS 

FAB7SV = FAR7DS 

AM6DSV = AM6DS 

RETURN 

N = 0 

IF (FAR .GT. 0.067D0) GO TO 8 
DO 6 J = 1 ,25 

IF (FAR .GE. TFAR ( J) ) N = J - 1 
CONTINUE 

IF (N .EQ. 0) N = 1 
IF (N .GE. 24) N = 23 
DO 7 I = 1,3 
NN = N - 1 + I 
X (I) = TFAR (NN) 

Y ( I) = ETABRT (NN) 

CALL PARABO ( X , Y ,F AR , ET A 1 ) 

GO TO 9 

ETA 1 = - 2.0D0 * FAR + . 1948D0 


ABCD3930 

ABCD3931 

ABCD3932 

ABCD3933 

ABCD3934 

ABCD3935 

ABCD3936 

ABCD3937 

ABCD3933 

ABCD3939 

ABCD394 0 

ABCD394 1 

ABCD3942 

ABCD3943 

ABCD3944 

ABCD3945 

ABCD3945 

ABCD3947 

A3CD3943 

ABCD3949 

ABCD3953 

ABCD3951 

ABCD3952 

A3CD3953 

ABCD3954 

ABCD3955 

ABCD3956 

ABCD3957 

ABCD3958 

ABCD3959 

ABCD3960 

ABCD3951 

ABCD3962 

ABCD3963 

ABCD3964 

ABCD3965 

ABCD3966 

ABCD3957 

ABCD3968 

ABCD3959 

ABCD3970 

ABCD397 1 

ABCD3972 

ABCD3973 

ABCD3974 

ABCD3975 

ABCD3975 

ABCD3977 

ABCD3973 

ABCD3979 

ABCD3930 

APCD3Q81 
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9 

M = 0 

ABCD3992 


DO 10 J = 1,7 

ABCD3993 


IF (EM6 .GE. EM6T (J) ) M = J - 1 

ABCD 3 99 4 

10 

CONTINUE 

ABCD39S5 


IF (M .EQ. 0) M = 1 

A BCD 3 9 86 


IF (M .GE. 6) M = 5 

ABCD3997 


DO 11 I = 1,3 

ABCD3988 


MM = M - 1 + I 

ABCD3933 


X(I) = EM6T (MM) 

ABCD3990 

11 

I (I) = DELM6 (MM) 

ABCD399 1 


CALL PARABO (X, Y ,EM6 ,CORl) 

ABCD3992 


L = 0 

ABCD399 3 


DO 12 J = 1,14 

ABCD3994 


IF ( P6 .GE. P6T ( J) ) L = J - 1 

ABCD3 9 9 5 

12 

CONTINUE 

ABCD3996 


IF (L .EQ. 0) L = 1 

ABCD3997 


IF (L .GE. 13) L = 12 

ABCD3999 


DO 13 I * 1,3 

ABCD3999 


LL = L - 1 + I 

ABCD40C0 


X(I) = P6T (LL) 

ABCD4 001 

13 

Y (I) = DELP6 (LL) 

ABCD40C2 


CALL PARABO ( X, Y , P6 , COR2) 

ABCD4O03 


ETA = ETA1 * (1.0D0 - CORl) * (1.0D0 * COR2) 

A3CD4C04 


RETURN 

ABCD4CC5 


END 

ABCD*' °05 


Subroutine FASTBK 


SUBROUTINE FASTBK 
IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL FAN 

COMMON /COMALL/ COM (1062) 

EQUIVALENCE (PI, COM (33) ) , (T25, COM (1*6)), (P25, COM (47)), 

1 (H25, COM (48 ) ) , (S25, COM(49)>, (WFD, COM (72)), (XXP 1 , COM (76)), 

2 (XWG24, COM (77)), (XFAR24 , COM (78)), (XT25, COM (79) ) , 

3 (XP25, COM (80) ) , (XH25, CDM(81)), (XS25, COM(82)), 

4 (XWG55, COM (63) ) , (XFAR55, COM{84)), (XT55, COM (85)), 


5 

(XP55 

, COM (86)), 

(XH55 

, COM (87) ) , 

(XS55, 

COM (88) ) , 

6 

(XWFB 

, COM (89) ) , 

( XWFD 

, COM (90) ) , 

(WFB, 

COM (192) ) , 

7 

(172 1 , 

COM (263) ) , 

(821, 

COM (264) ) , 

(S21, 

COM (265) ) , 

8 

(T55, 

COM (272) ) , 

(H 55 , 

COM (273) ) , 

(S55, 

COM (274) ) , 

9 

(BLF, 

COM (316) ) , 

(WAF, 

COM (319) ) , 

(WG24 , 

COM (321) ) , 


1 (FAR24, COM (322) ) , (WG55, COM(323)), (FAR55, COM(324)), 

2 (P21, COM (377) ) , (P55, COM(387)), (FAN, COM(1061)) 

XT55 = T55 

XP55 = P55 

XH55 = H55 

XS55 = S55 

IF (FAN) GO TO 1 

T25 = T21 

P25 = P21 

H25 = H21 

S25 = S21 

HG24 = WAF - BLF 


A3CD4C07 
ABCD* 1 2 COS 
ABCD4 009 
ABCD4010 
A3CD401 1 
A9CDU012 

ABCDU013 

ABCD4014 
ABCD4015 
ABCD** 015 
ABCD401 7 
ABCD401 9 
ABCD 1 * 0 1 9 
A 3C 0** 0 2 0 
ASCD402 1 
A3CD4022 
ABCD4023 
ABCD4C24 
ABCD4C27 
ABCD4 0 2b 
ABCD4027 
ABCD**02S 
ABCD4029 
ABCD4030 
ABCD403 1 
ABCD4032 
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XT25 = T25 


ABCD4 r '33 

XP25 = P25 


A3CD4034 

XH2 5 = H25 


ABCD4035 

XS25 = S25 


ABCDU036 

XWFB = WFB 


ABCD403 7 

XHG55 = WG55 


ABCD4038 

XPAR55 = FAR55 


ABCD4039 

XWFD = MFD 


ABCD4040 

X WG24 = WG24 


ABCD4041 

XFAR24 = FAR24 


ABCD4042 

XXP 1 = PI 


ABCD4043 

CALL COMIX 


ABCD4C44 

RETORN 


A3CD4045 

END 


A3CD4043 

Subroutine FCNTRL 


SUBROUTINE FCNTRL 


ABCD4047 

IMPLICIT REAL*8 (A-H,0-Z) 


ABCD4048 

RETURN 


ABCD4049 

END 


ABCD4050 

Subroutine FRTOSD 


SUBROUTINE FRTOSD 


ABCD4051 

IMPLICIT R EAL*8 (A-H,0-Z) 


ABCD4052 

LOGICAL FAN 


ABCD4053 

COMMON /COMALL/ COM (1062) 


ABCD4054 

EQUIVALENCE (PI, COM (33)), (H3, C0M(153)) 

, (WAC, COM (191) ) , 

ABCD4055 

(XP 1 , COM (200) ) , ( XT2 1 , COM(201)), (XP21, 

COM (202) ) , 

ABCD4055 

: ( XH2 1 , COM (203) ) , (XS21, COM (204) ) , (XH3, 

COM (205) ) , 

ABCD4057 

l (XWAF , COM (206)), (XHAC, COM (207)), ( XBLF 

, COM (203) ) , 

ABCD405S 

(XBLDU, COM (209) ) , (T21, COM(25 3)), (H21, 

COM (264) ) , 

ABCD4059 

(S 2 1 , COM (265) ) , (BLF, COM (316)), (BLDU, 

COM (317) ) , 

ABCD4060 

(HAF, COM (319) ) , (P21, COM(377)), (FAN, COM(1061)> 

ABCD4061 

XP1 = PI 


ABCD4062 

XWAF = WAF 


A3CD4063 

XHAC = HAC 


ABCD4064 

XBLF = BLF 


ABCD4065 

XBLDU = BLDU 


ABCD4056 

XH3 = H3 


ABCD4067 

XT2 1 = T2 1 


A3CD4063 

XP2 1 = P21 


ABCD4069 

XH2 1 = H21 


ABCD407C 

XS2 1 = S21 


ABCD4071 

IF (FAN) CALL CODUCT 


ABCD4072 

IF (.NOT. FAN) CALL FASTBK 


A BCD4 0 7 3 

RETURN 


ABCD4074 

END 


ABCD4075 

Function GUESS 

FUNCTION GUESS (M, T, TD, P, PD, H, WD , D, 

DD, VD) 

ABCD4075 

IMPLICIT REAL*8 (A-H,0-Z) 


A3CD4077 
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IF (M .EQ. 0) GUESS = VD * ( (T / TO) ** 1.600) * ( (DO / 0) ** 

1 0.5D0) 

IF (M .LE. 0 .OR. M .GT. 9) REBORN 
GO TO (1,2, 3, 3, 5, 6,7, 8, 9), M 

GOESS = VD * ((P / PD) ** 1 . 8 DO) * ( (DD / b) ** 0.33DO) 

RETORN 

GOESS = VD * ((W / HD) ** 0.33DO) * DD / D 

RETORN 

GOESS = VD * t (P / PD) ** . 5D0) 

RETORN 

GOESS = VD * ( (T / TD) ** 7 . IDO) * ( (DD / D) ** .70C) 

RETORN 

GOESS = VD * P / PD * ( (D / DD) ** 0.25D0) 

RETORN 

GUESS = VD * ( (P / PD) ** 0.62D0) * ((D / DD) ** 0.31D0) 

RETURN 

GUESS = VD * ( (T / TD) ** 1.2D0) * DD / D 

RETURN 

GOESS = VD * P / PD * ( (D / DD) ** 1.5D0) 

RETURN 

END 

Subroutine INDUMY 


* BCDU 073 
ABCD4 r *79 
ABCD4080 
ABCD4D9 1 
A3CD4C82 
APCD4 083 
A3CD4034 
A8C0U n 8 5 
ABCD4095 
ADCD4087 
ABCDU 039 
ABCD4 09 9 
A3CD4C99 
ABCD4091 
ABCD4092 
ABCD4093 
ABCD4094 
ABCD4095 
ABCD4095 
ABCD4097 
ABCD4093 


1 


SUBROUTINE INDUMY (CNI , ZI, W ACI, I DBS ) 

IMPLICIT REAL*8 (A-H,0-Z) 

COMMON /COMDAT/ COMD (5423) 

DIMENSION CNXXI ( 15) , PRXX I ( 1 5, 1 5) , H ACXXI ( 1 5 , 1 5 ) , ET A XXI ( 1 5 , 1 5 ) , 
1 NPTXI(15) 

DIMENSION XCNXX (15), HACAR(15) 

EQUIVALENCE (CNXXI(I), CD * D ( 1 3 8 1 ) ) , (PRXXI(1,1), C OM D ( 1 39 6 ) ) , 

1 (WACXXI (1,1) , COMD (1621)) , (ET A XXI ( 1 , 1 ) , COMD(1846)), 

2 (NCNXI, COMD (5328) ) , (NPTXI(I), COMD(5329)) 

DATA XCNXX /.001D0, .IDO, .2D0, . 3 DO , ,5D0, .8D0, 1.0D0, 1.5D0, 

1 2.0D0, 3.0D0, 4.0DO, 5.0D0, 6.0D0, 7.0D0, 9.0D0/ 

DATA WACAR /5.0D0, 4 . 5 DO , 4.0DO, 3.5D0, 3.0D0, 2.5D0, 2.0DC, 

1 1 . 5 DO , 1.0D0, . 8D0, .6D0, .4D0, .25D0, .IDO, .05D0/ 

IF (IDES .NE. 1) GO TO 1 

RAIDS = RACI 

CNIDS = CNI 

ZI = 2.0D0 / 3.5D0 

NCNXI = 15 

DO 2 1=1,15 

NPTXI(I) = 15 

CNXXI (I) = XCNXX (I) * CNIDS 

DO 2 J = 1, 15 

PRXXI (I , J) = FLOAT (J ♦ 3) / 4.0DO 
ETAXXI (I, J) = 1.0D0 

HACXXI (J,I) = RACAR(I) * (. 993D0 + .001D0 * FLOAT ( J) ) * RAIDS 

RETORN 

END 


A3CD409? 
ABCD4 100 
ABCD4101 
ABCDU 102 
ABCD4 103 
ABCD41C4 
ABCD4 105 
ABCD4105 
A3CD4 107 
A BCD 4 1 08 
ABCD4 109 
ABCDU 1 1 0 
ABCDU 1 1 1 
ABCDU 112 
ABCD4 1 1 3 
ABCDU 114 
ABCDU 115 
A3CD4 116 
ABCDU 117 
A3CD4119 
ABCDU 119 
ABCDU 120 
ABCD4121 
ABCDU 122 
ABCDU 123 
ABCDU 1 24 
ABCDU 125 
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SUBROUTINE MATRIX (E,V,A,N) 

IMPLICIT REAL*8 (A-H,0-Z) 

DIMENSION E (9 ,9) , V(9), A (9) , PIV<10), T { 9 , 10) 
NN = N + 1 
NM = N - 1 
DO 1 I = 1,N 
T(I,NN) = A (I) 

DO 1 J = 1 , N 

1 T (I,J) = E (I, J) 

DO 7 I = 1 , N 
TEMP = 0.0D0 

DO 2 J = I, N 

IF (TEMP -GT. DABS (T (J,T) ) ) GO TO 2 
TEMP = DABS (T (J, I) ) 

IPIV = J 

2 CONTINUE 
IP1 =1+1 

DO 3 J = IP 1 , NN 

3 PIV(J) = T ( I PI V , J) / T (IPIV, I) 

IFROM = N 

ITO = N 

4 IF (IFFOM .EQ. IPIV) GO TO 6 
RM = - T (IFFOM, I) 

DO 5 J = I Pi , NN 

5 T(ITO,J) = T ( I FR OM , J) + PM * PIV(J) 

ITO = ITO - 1 

6 IFROM = I FROM - 1 

IF (IFROM .GE. I) GO TO 4 
DO 7 J = I P 1 , N N 

7 T (I , J) = PI V (J ) 

DO 8 I = 1 ,NM 
J = NN - I 

K = N - I 
DO 8 L = J , N 

8 T (K, NN) = T (K , NN) - T ( K , L) * T ( L , N N ) 

DO 9 I = 1 , N 

9 V (I) = T (I , NN) 

PETIJRN 

END 


A3CD4126 
ABCD4 127 
A3CD4 1 2 p 
ABCD4 129 
A3CD41 39 
ABCD4 131 
ABCDM32 
ABCD4133 
ABCD413U 
ABCD4 135 

ABCD4 1 35 
A3CD4 137 
A 3 C 0 4 13? 
ABC94139 
AFCD4 149 
ADCD414 1 
ABCDl' 14 2 
ABCOU 143 
ABCD4 14 4 
ABCD4145 
ABCD4 145 
ARCD4 147 
A3CD4 143 
ABCD4 1 4o 
AriCD'J 153 
A BCD 4 1 c 1 
AECD4 152 
A r CD4153 
ALlCDi' 154 
*5004155 
AEC04156 
ABCD4 157 
A BCD 4 15 8 
ABCD4 15 3 
ABCD4 150 
A 3CD4 1 c 1 
ABCD« 162 
AP-CD416 7 
A3CD4 154 


Subroutine NOZCTR 


SUBROUTINE NOZCTR 

IMPLICIT REAL*8 (A-H,0-Z) 

RETURN 

END 


ABCD4165 
ABCD4 155 
ABCD4 167 
ABCD4 16 3 


Subroutine OUTPUT 


SUBROUTINE OUTPUT ABCD4159 
IMPLICIT P EA L*8 (A-rf,0-Z) ABCD4170 
LOGICAL DUMSPL, FXFN2M, FXM2CP, A^TFAN, FAN ABCD4171 
COMMON /COMALL/ COM (1062) ABCD4172 
DIMENSION WORD (2) ABCD4173 
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DIMENSION W (6, 5) , AW0RD1(2), AW0F.D2 (2) 

EQOIVALENCE (WORD(1), COM(1)), (IDES, COM (3)), (MODE, COM (6)) 


25 


1 (IDUMP, COM (3) ) , 

2 (IAFTBN, COM (12)) 

3 (LOOPER, COM (19) ) , (T24 , COM ('4 2)) 

4 ( A28SAV, COM (51)), (A29, COM (60)) 

5 (ZF, COM ( 1 36) ) , (PCNF , COM(137)), 

6 (PCNI , COM (140)), (T4 , COM (155)), 

7 (AM, COM (195) ) , ( ALTP, COM (196)), 

8 ( F3 , COM (2 57 ) ) , (FN , COM(258)), (ZC, C0M(300)), (PCSC, C3M(301)) 

9 (PCBLID, COM (305) ) , (T7, COM(343)), (A8, COM(346)), 

1 (A8SAV, COM (347) ) , (A9, COR (356)), ( A9SAV, COM(357)), 

2 (TIME, COM (993)), (TPRINT, COM (996)), (DTPRNT, COM (997) ) , 

3 ( IS POOL, COM ( 1044) ) , (ITRAK, COM(1 049)), (IAMTRX, CON(1054)), 

4 (DUMSPL, COM (1 057) ) , (FXFN2M, COM (1058)), (FXM2CP, COM (1059)), 

5 (AFTFAN, COM (1060)), (FAN, COM (1061)) 


(IGASMX, COM ( 1 0) ) , (IDBURN, COM(11)), 

, (IDSHOC, COM (15)), (IMSHOC, COM (16)) 

(A28, COM (50) ) , 
(A29SAV, COM (61) ) , 
(ZI, COM (139) ) , 

(ETAR, COM (187) ) , 

( SFC , COM (248)), 


DATA 

DATA 


AWORD1, AWORD2 /4HOUTP, 4HOT 


W / 


4 HSUBS , 

1 4 H3 HOC , 

2 4 HSHOC , 

3 4 HSUBS, 

4 4 HSONI , 

IF (IAMTRX .EQ. 1 
TPRINT = TPRINT + 
IF (ITPAN .EQ. 1) 
WORD (1) = AWORD1 (1) 

WORD (2) = AWORD1 (2) 

IF (IDBURN .GT. 0) 


UHONIC, 

4HK IN, 

4 HK OU, 
4H0NIC, 

4 HC CO, 

.AND. ITRAN 
DTPRNT 
WRITE (6,29) 


4 H C-D, 
4HSIDE, 
4HTSID, 

4 H CON, 

4 HNVER, 
EQ. 


4HCOMM, 4 HON / 

4 H NOZ , 4HZLE , 4H , 

4 H C-D, 4 H NOZ, 4HZLE , 

4 HE C-, 4 HD NO, 4HZZLE, 
4HVERG, 411. NO, 4HZZLE, 
4HGENT, 4 H NOZ, 4HZLE / 
TO 24 


D 


GO 


TIME 


IF (IAFTBN 
WRITE (6,7) 


.GT. 0) 


GO 

GO 


TO 

TO 


GO TO 
WRITE 
GO TO 
WRITE 
IF 
IF 


3 

( 6 , 8 ) 

3 

(6,9) 
(FXFN2M) 
(FXM2CP) 


WORD, AM, ALTP, T4, ETAR 
WORD, AM, ALTP, T4 ,T7 , ET AR 


•AND. (.NOT. DUMSPL)) 


WORD,AM,ALTP,T4 ,T24 , ET AR 
WRITE (6,17) 

WRITE (6,18) 

IF (FAN) GO TO 25 
WRITE (6,26) ISPOOL 
GO TO 27 

IF (.NOT. FXFN2M .AND. (.NOT. FXM2CP) 

1 WRITE (6,19) 

IF (DUMSPL) WRITE (6,23) 

IF (PCBLID .EQ. O.ODO) WRITE (5,20) 

IF (PCBLID .EQ. O.ODO .AND. AFTFAN) WRITE (6,21) 
IF (PCBLID .NE. O.ODO .AND. AFTFAN) WRITE (6,22) 
27 CALL CONOUT (2) 

WRITE (6,10) (W (I, IMSHOC) , 1=1,6) ,FG, FN, SFC 
IF (IGASMX .GT. 0 .OR. .NOT. FAN) GO TO 4 
WRITE (6,11) (W(I, IDSHOC) ,1=1,6) 

4 WRITE (6,12) LOOPER 

IF (IDES .NE. 1) GO TO 5 
WORD (1) = A WORD 2(1) 

WORD (2) = AWORD2 (2) 

WRITE (6,13) WORD, ZF,PCNF,ZI, PCNI, ZC,PCNC,T4, MODE 


ABCD4174 
ABCD4 175 
ABCD4176 
ABCD4177 
ABCD4178 
ABCD4179 
ABCD4 180 
ABCD4181 
ABCD4 132 
, ABCD4183 
ABCD4184 
ABCD4 155 
ABCD41 85 
ABCD4 137 
A BCD 4 1 88 
ABCD41 89 
AECD4 190 
ABCD4191 
A3CD4 192 
ABCD4193 
ABCD4 194 
ABCD4 195 
ABCD4 195 
ABCD4197 
ABCD4 199 
ABCD4 1 ? 9 
ABCD4200 
ABCD4201 
ABCD4202 
ABCD4203 
ABCD4 20 4 
ABCD4205 
A3CD4205 
ABCD4207 
ABCD4203 
ABCD4209 
ABCD4210 
ABCD421 1 
ABCD4212 
ABCD U 213 
ABCD421 4 
ABCD 11 215 
ABCD4215 
A3CD4 217 
ABC D £| 2 1 3 
ABCD4 21 3 
ABCD4220 
ABCD4221 
ABCD4222 
A BCD 4 22 3 
A3CD4224 
A BCD' 1 225 
AECD4225 
A BCD4 22’ 
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WRITE (6,14) 



ABCD4228 


WRITE (6,15) (C CM (I) , I = 33,394) 



ABCD4229 


WRITE (6,14) 



ABCD4233 


WRITE (6,15) DUMSPL, FXFN2M, FXM2CP, AFTFAN, FAN 



ABCD4231 


WRITE (6,14) 



ABCDU232 


WRITE (6,16) 



ABCD4233 

24 

IF (IDES . EQ. 1) GO TO 6 



ABCD4234 

5 

A8 = A8SAV 



ABCD4235 


A9 = A9SAV 



ABCD4236 


A28 = A28SAV 



ABCD4237 


A29 = A29SAV 



ABCD4239 


IF (IDUMP . NE. 2) GO TO 6 



ABCD423? 


WRITE (6,16) 



ABCD4240 


CALL SYG (2) 



ABCD4241 

6 

CALL ENGBAL 



ABCD4242 


RETURN 



ABCD4243 

C 




ABCD4244 

C 




ABCD4245 

C 




ABCD4245 

7 

FORMAT ( 1 H , A4 , A2, 14X, 7H AM=, F7. 3, 6X, 7h 

ALTP = 

, F7 . 0 , 

ABCD4247 


1 6 X , 7 H T4=, F8.2, 2 5X, 7H ETAR = , F7.4) 



ABCD4248 

8 

FORMAT ( 1 H , A4 , A2 , 14X, 7H AM=, F7. 3, 6X, 7h 

A LTP = 

, F7.0, 

ABCD4249 


1 6X, 7H T4=, F8.2, 5X , 7h T7=, F8.2, 5X, 78 

El A R = # 

F7.4) 

ABCD4250 

9 

FORMAT (1 H , A4 , A2, 14X, 7H AM=, F7. 3, 6X, 7h 

A LTP = 

, F7.0, 

ABCD4251 


1 6X, 7H T4=, F8.2, 5X, 7H T24=, F8.2, 5X, 7H 

ETAR= f 

F7.4) 

ABCD4252 

10 

FORMAT ( 1 H 0 , 5HMAIN , 6A4, 9X, 3 HFG=, F9.2, 18X, 3HFN = , 

F9.2, 

ABCD4253 


1 18X, 4HSFC=, F8.5) 



ABCD4254 

11 

FORMAT (6 H DUCT ,6A4) 



ABCD4255 

12 

FORMAT (16H0C ON VERGED AFTER, 14, 6H LOOPS,/, 1H1) 



A8CD4256 

13 

FORMAT ( 1 H ,A4,A2,9X,7E15.6,I4) 



ABCD4257 

14 

FORMAT ( 1 H ) 



AECD4258 

15 

FORMAT ( 1 H ,8E15. 6) 



ABCD4259 

15 

FORMAT ( 1 HI ) 



ABCD4250 

17 

FORMAT (51H0FAN AND MIDDLE SPOOL ARE ATTACHED , USE 

INNER 

AND , 

ABCD4261 


1 14HOUTER TURBINES) 



ABCD42E 2 

16 

FORMAT (49H0MIDDLE AND COMPRESSOR SPOOLS ARE ATTACHED , USE , 

ABCD4263 


1 25HMIDDLE AND OUTER TURBINES) 



ABCD4264 

19 

FORMAT (1 9H0THREE SPOOL ENGINE) 



ABCD4265 

20 

FORMAT ( 2 1 HONO AIRFLOW INTO WING) 



ABCD426 6 

21 

FORMAT ( 1H+ ,2 2 X, 1 4H , AFT-TURBOFAN) 



ABCD4267 

22 

FORMAT (14H0 AFT-TURBOFAN) 



ABCD4253 

23 

FORMAT (22H0MIDDLE SPOOL IS DUMMY) 



ABCD4269 

26 

FORMAT (1H0,I4, 15H SPOOL TURBOJET) 



ABCD4270 

29 

FORMAT (1H1 ,20X,7H TIME=,F7.4) 



ABCD4271 


END 



ABCD4272 


Subroutine PARABO 





SUBROUTINE PARABO (X , Y , XD, YANS) 



ABCD4273 


IMPLICIT REAL*8 (A-H,0-Z) 



ABCD4274 


DIMENSION X (3) , Y(3) 



ABCD4275 


X1M2 = X (1) - X ( 2) 



ABCD4276 


XI M3 = X (1 ) - X (3) 



ABCD4277 


X2M1 = X (2) - X ( 1) 



ABCD4278 
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X2M3 

= X (2) 

- 

X (3) 

ABCD4273 

X3M2 

= X (3) 


X (2) 

ABCD4280 

X 1 SQ 

= X(1) 

* 

X(1) 

ABCD4231 

X2SQ 

= X (2) 

* 

X (2) 

ABCD^ 282 

X3SQ 

= X (3) 

♦ 

X ( 3) 

A3CD4 283 

Y1M2 

= Y ( 1 ) 


Y (2) 

ABCD4284 

Y1M3 

= 1(1) 

- 

7(3) 

ABCD4235 

A = 

( XI M2 * 

Y1M3 - X 1 M3 * Y1M2) / X 1 M2 / X1M3 / X3M2 

ABCD42R5 


X3SQ) 
X 1SQ - B * X (2) 


B = ( (X 1SQ - X2SQ) * Y 1 M 3 - (XlSQ - 
1 X2M3 

D = (T (1) * X2SQ - Y (2) * 

1 - X 1 SQ) 

YANS = (A * XD + B) * XD ♦ D 
RETURN 
END 


« Y1M2) / X 1 M2 / X 1 M3 / 

* X ( 1) * X2M 1) / ( X2SQ 


A 3COM 237 
A3CDU2BB 
ABCDU 2B 9 
ABCD4293 
ABCD4291 
ABCDO 2? 2 
ABCD4293 


Subroutine PERF 


SUBROUTINE PERF 

IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL SI, DUMSPL, AFTFAN, FAN 
COMMON /COMALL/ COM (1062) 

DIMENSION WOR D ( 2) 

DIMENSION AWORD (2) 

EQUIVALENCE (WORD ( 1) , ’COM ( 1) ) , (IDES, COM(3)), (IGASMX, COM(IO)) 

1 (PI, COM (33) ) , (A29, COM(50)), (V29, COM (63)), (PS29, COM (65)), 

2 (WAD, COM (71)), (WFD, COM (72) ) , (PCNI, COM(140)), 

3 (WFB , COM (192)) , (CS, COM(194)), (AM, COM(195)), 

4 (WG37, COM (2 1 0) ) , (A39, COM(219)), (V39, COM(221)), 

5 (PS39, COM (226)), (FGMWNG, COM (230) ) , (FGPWNG, COM (231)), 

6 (FNWING , COM (232) ) , (FNMAIN, COM(233)), (FWOVFN, COM (234) ) , 

7 (DELFG, COM (236)), (DELFN , COM (237)), (DELS FC , COM (233)), 

8 (CVDWNG , COM (239) ) , (CVDNOZ, C0M(240)), (CVMNOZ, COM (241)), 

9 (VA, COM (242) ) , (VJD, COM(243)), (VJW, COM(244)), 

1 (VJM, COM (245) ) , (WFT, COM (246)), (WGT, COM (247) ) , 

2 (SFC , COM (248) ) , (TFAR, COM(249)), (FRD, COM(250)), 

3 ( FGMD, COM (251)), (FGMM, COM(252)), (FGPD, COM(253)), 

4 (FGPM, COM (254) ) , (FGM, COM(255)), (FGP, COM(256)), 

5 (FG, COM (257)), (FN, COM (258)), (FFOVFN, COM (259)), 

6 (FCOVFN, COM (26 0) ) , (FMNOFN, COM(261)), (FNOVFD, COM(262)), 

7 (WA32, COM (271)), (PCBLID, COM (305)), (CNI, COM(309)), 

8 (WAI, COM (311)), (BLOB, C0M(318)), (WAF, COM(319)), 

9 (WG24, COM (321) ) , (WG7 , COM(334)), (A9, COM(356)), 

1 (PS9 , COM (359)), (V9, COM (360)), (WFA, COM (368)) 

EQUIVALENCE (TIME, COM (993)), (TPRINT, COM (996) ) , 

1 (ITRAN, COM ( 1 04 9) ) , (SI, COM(1055)), (DUMSPL, COM(1057)), 

2 (AFTFAN, COM(1060)), (FAN, COM(1061)) 

DATA AWORD /4 H PE, 4HRF / 

WORD ( 1 ) = AWORD ( 1) 

WORD (2) = AWORD (2) 

IF (SI) GO TO 100 
G = 32. 174049D0 
CAPS F = 2116.217 0D0 
GO TO 101 


ABCDU 294 
A3CD4295 
ABCD4296 
ABCD4297 
ABCD4293 
A BCD 4 29 9 
, ABCD4300 
ABC04301 
ABCD4302 
ABCD43 r '3 
ABCD4 304 
ABCD4305 
ABCD430S 
ABCD4307 
ABCD4 303 
ABCD4309 
ABCD4310 
ABCD4 31 1 
ABCD4312 
ABCD431 3 
ABCD4 314 
ABCD4315 
ABCD4316 
A3CD4317 
ABCD4 31 3 
ABCD4319 
ABCD4320 
A3CD4321 
ABCD4322 
ABCD4323 
ABCD4 324 
ABCD4325 
ABCD4 325 
ABCD4327 
A3CD4323 
ABCD4329 
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100 

G = 1.0D0 

ABCD4330 


CAPSF = 1.0D0 

ABCD4331 

101 

WFT = WFB + WFD + WFA 

ABCD4332 


WAT = WAF - BLOB 

ABCD4333 


IF (AFTFAN) WAT = WAT + WAI 

ABCD4334 


WGT = WAT + WFT 

ABCD4335 


TFAR = WFT / WAT 

ABCD4336 


VA * AM * CS 

ABCD4337 


FRD = VA * WAF / G 

ABCD4338 


IF (AFTFAN) FBD = FRD + VA * WAI / G 

ABCD4339 


VJM = CVMNOZ * V9 

ABCD4340 


FGMM = VJM * WG7 / G 

ABCD4 34 1 


FGPM = CAPSF * (PS9 - PI) * A9 

ABCD4342 


IF (IGASMX .GT. 0 .OR. .NOT. FAN) GO TO 1 

ABCD4 343 


VJD = CVDNOZ * V 29 

ABCP4344 


FGMD = VJD * WG24 / G 

A3CD4 345 


FGPD = CAPSF * (PS29 - PI) * A29 

ABCD434? 

1 

VJW = 0.CD0 

ABCD4 347 


FGMWNG = 0.0D0 

ABCD434 8 


FGPWNG = 0.0D0 

A BCD4 3 4 9 


FGWING = 0.0D0 

A B C D 4 350 


FNWING = 0.0D0 

ABCD435 1 


IF (PCBLID . EQ. 0.0D0) GO TO 2 

ABCD4 352 


VJW = CVDWNG * V 39 

ABC04 353 


FGMWNG = VJW * WG37 / G 

ABCD4 354 


FGPWNG = CAPSF * (PS39 - PI) * A3 9 

ABCD4 355 


FGWING = FGMWNG + FGPWNG 

A BCD4 35 c 


FNWING = FGWING - VA * WA32 / 3 

ABCP4257 

2 

FGM 1 = FGMM + FGMD 

ABCD4 35 n 


FGM = FGM 1 + FGMWNG 

A3CD4359 


FGP 1 = FGPM ♦ FGPD 

AECD4360 


FGP = FGP1 + FGPWNG 

ABCD4 361 


FNMAIN = FGM 1 + FGP 1 - VA * (WAF - WA32) / G 

ABCD4 362 


IF (AFTFAN) FNMAIN = FNMAIN - VA * WAI / G 

A3CD4 363 


FG = FGM + FGP 

ABCD436" 


FN = FG - FRD 

ABCD43 6. 5 


SFC = 3600. 0D0 * WFT / FN 

A3COU 366 


FG = DELFG * FG 

ABCD436 7 


FN = DEL FN * FN 

ABCD4363 


SFC = DELSFC * SFC 

A B C D 4 3 c 9 


FF AN = FGMD + FGPD - VA * WAD / G 

A3CD4 ’70 


FCORE = FNMAIN - FF AN 

ABCDi'371 


FFOVFN = FFAN / FN 

ABCDU 372 


FCOVFN = FCOPE / FN 

ABCD4 373 


FWOVFN = FNWING / FN 

ABCD4374 


FMNOFN = FNMAIN / FN 

A BCD 4 3 75 


IF (IDES .EQ. 1) FDES = FN 

ABCD4 376 


FNOVFD = FN / FDES 

ABCD4377 


IF (.NOT. DBMS PL) GO TO 3 

ABCD4 378 


PCNI = 1 . 0 DO 

A3CD4 379 


CNI = C.ODO 

ABCD43R0 

3 

IF (ITRAN . EQ. 1 .AND. TIMS .LI. TPFINT) CALL ENGBAL ABCD4381 


CALL OUTPUT 

ABCD4 332 


CALL ERROR 

ABCD43B3 


FETUKN 

ABCD4334 


END 

A BCD 4 3 8 5 
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Subroutine PROCOM 


c 


c 


c 


5 


SUBROUTINE PROCOM (F ARX ,TEX , CSEX , AK EX ,CPEX, REX, PHI , HEX) 
IMPLICIT R EAL *8 (A-H,0-Z) 

LOGICAL SI 

COMMON /COMALL/ COM (1062) 

EQUIVALENCE (SI, COM (1055)) 

IF SI UNITS ARE USED, CONVERT TEX TO DEGREES FANKINE 
IF (SI) TEX = TEX * 9.0D0 / 5.0D0 

.GT. . 0675 23D0 ) FARX = .067623D0 
,LT. 300. 0D0) TEX = 300. 0D0 
, GT. 4000. 0D0) TEX = 4000. ODO 
0.0D0) FARX = 0.0D0 


(FARX 
(TEX . 
(TEX . 


IF 
IF 
IF 

IF (FARX .LT 
AIR PATH 

CPA = ( ( ( ( ( (1. 0 1 1554D-25 * TEX - 1 . 4 5 2 6 77 D- 2 1 ) * TEX + 

1 7. 6215767D-1 8) * TEX - 1. 5 1 282 59D- 1 4) * TEX - 6 . 7 1 79 376 D- 1 2) * 

2 TEX + 6. 5519486D-08) * TEX - 5 . 1 5 3 6 879D- 05 ) * TEX + 2.50200*10 

HEA = ( ( ( ( { ( (1. 2644425D-26 * TEX - 2. 0752522D-22) * TEX ♦ 

1 1. 270263D-18) * TEX - 3 . 02 565 1 8D- 1 5) * TEX - 1 . 6 7945 94 D-1 2 ) * 

2 TEX + 2. 1 839826D-08) * TEX - 2 . 575 3 44D-C5) * TEX + 

3 2. 5020051 D-0 1 ) * TEX - 1 . 755 8886 D+ 00 

SEA = 2.50 200 5 ID- 0 1 * DLOG(TEX) + (((((( 1 . 44 5076 7D- 26 * TEX - 

1 2.4211288D-22) * TEX + 1. 5 24 3 1 5 3 D- 1 8) * TEX - 3 . 7 9 20 6 4 «D- 1 5) * 

2 TEX - 2. 239279D-12) * TEX + 3. 2759743D-08) * TEX - 

3 5. 1576879D-05) * TEX + 4.54323D-02 

IF (FARX .LE. O.ODO) GO TO 5 
FUEL/AIR PATH 

CPF = ((((( (7. 26737 ID-25 * TFX - 1 . 3 3 3566 B D- 20) * TEX + 

1 1 . 0 2 1 29 1 3D- 1 6) * TEX - 4. 2 05 1 1 04 D- 1 3) * TEX + 9 . 9 6 85 7 9 3 D- 1 0 ) * 

2 TEX - 1. 3 771901 D-06) * TEX + 1 . 225 36 3D-0 3) * TEX 7.381S639D- 

HEF = (((((( (9. 0848388D-26 * TEX - 1 . 905 094 9 D- 2 1 ) * TEX + 

1 1.7021 52 5D- 1 7) * TEX - 8. 4 102208D- 1 4) * TEX + 2.4921 698C- 10) * 

* TEX + 6. 129 315D-04) * TEX +■ 

+ 3. 058153D+01 

D LOG (TEX) + (((((( 1. 0 3P267D-25 * TEX - 

+ 2. 0 42 582 6D- 1 7) * TEX - 1 . 0 5 1 2 7 7 6 D- 1 3) * 

* TEX - 5 . 83 5 9 5 05 D-07 ) * TEX ♦ 

> 6.433393D-01 


2 TEX - 4 . 59 06 332D-07 ) 

3 7. 38 16638D-02) * TEX 

SEF = 7. 3816633D-02 * 

1 2. 22261 18D-21) * TEX 

2 TEX + 3. 3228928D-1C) 

3 1. 225863D-03) * TEX < 


CPEX = (CPA + FAFX * CPF) / (1.0D0 + FAPX) 

HEX = (HEA + FARX * HEF) / ( 1 . 0 DO + FAFX) 
PHI = (SEA + FARX * SEF) / (1.0D0 ♦ FAFX) 
AMW = 28.97D0 - .946186D0 * FARX 
REX = 1.986375D0 / AMW 
AKEX = CPEX / (CPEX - REX) 

CSEX = DSQRT (AKEX * REX * TEX * 25031. 37D0) 

IF (.NOT. SI) RETURN 

CPEX = CPEX * 41 85. 7666D0 

HEX = HEX * 2 3 25. 4 2 59D0 

PHI = PHI * 4185.7666D0 

REX = REX * 4185.7666D0 

CSEX = CSEX * . 3 048 DO 


A 3CD4 3 a 5 
APCD4 387 
A3CD4 39? 
A3CD“ 38? 
ABCD4 390 
A3CD4 391 
A3CD4392 
ABCD4393 
ABCD43S4 
A8CD4395 
A SCO 4 395 
ABCD4337 
ABCD4398 
A3CD4.3 9? 

-01 ABCD4400 
A3CD4401 
A BCD4 402 
ABCD4403 
PBCD4404 
A BCD4 ''0 = 
ABCD1'LC5 
ABCD4407 
ABCDOdO 3 
ABC94'iO? 
ABCD44 1 0 
A BCD 4 411 
APCD'J 41? 
ABC 0441 3 
ABCD4 4 1 y 
A3CD44 15 
A BCD 4 4 1 5 
A3CD44 1 7 
A B C D 4 4 1 ? 
ABCD4 U 1 3 
ABCD4420 
ABCD4421 
A3CD4422 
A BCD'’ 42 3 
A3CD4 H 24 
ABCD4 tl 25 
ABCD4425 
ABCD4427 
A. 8 C 0 4 4 2 p 
A BCD4 4 2 ? 
A n CD4 U 3 " 

ABCD44 31 
A3CD4432 
A B C D 4 4 3 3 
A t3 C D 4 4 3 4 


02 
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>J (7M r 


TEX = TLX * 5 . ODC / <3. ODC 

FEI'JRN 

END 


Subroutine PUTIN 


SUBROUTINE PUTIN 
IMPLICIT R £AL* 8 (A-H,0-Z) 

LOGICAL SI, MERER, D'JMFPL, F X F N 2 M , FXM2CP, AFTFAN, FAN 
COMMON /COMALL/ COM (1062) 

DIMENSION WORD ( 2) , TIMEPT(50) 

DIMENSION XS A VE (396 ) , AWORD (2) 

EQUIVALENCE (WOFD(I), COM(1)), (IDES, COM (3)), (MODE, COM (6)), 

1 ( I N IT , COM (7 ) ) , (IDUMP, COK( Q )), ( I AMT P, COM (9) ) , 

2 (IGASMX, COM (10)), (IDBURN, COM (11)), (IAFTBN, COM (12)), 

3 (IDCD , COM (13)), (IMCD, COM (14)), (NOZFLT, COM (17)), 

4 (ITPYS, COM(ie)), (TOLALL, COM (23)), (AM23, COM (35) ) , 

(124, COM (42) ) , (A28, COM (50)), (ETAD, COM (73)), 

(DPDUDS, COM (75) ) , (T2 , COM(92)), (P2, COM (93)), 

(T4DS, COM (101)), (AM55 , COM(107)), (PS55, COM (110)) , 

b ( TFHPDS , COM (118)) , (CNHPDS, COM(IIS)), (ETHPDS, COM (120)), 

9 (PCNFDS, COM (124)), (PRFDS , COM (125)), (ETAFDS, COM (126)), 

1 (HPEXT, COM (129)) , (WACCDS, COM(130)), (ZCDS, COM (133)) , 

2 (WAFC, COM (135) ) , (PCNF, COM(137)), ( PCBLF, COM(139)), 

3 (ZIDS, COM (146)), (PCNIDS, COM (147)) , (T4, COM (156)), 

4 (PCBLHP, COM (166)), (PCBLIP, COM(167)), (PCBLLP, COM (168)), 

5 (PCBLDU , COM (169) ) , (PCBLOB, COM(170)), (PRIDS, COM (180)), 

6 ( ET AIDS , COM (181)) , (WAICDS, 00*1(183)), (ETABDS, COM (184)), 

7 (WFBDS, COM (185) ) , (ZFDS, COM(186>), (ETAR, COM(187)), 

8 (WFB,COM (192) ) , (AM, COM (195) ) , {ALrp,COM (196) ) , (DPCODS , COM ( 1 97) ) 

9 (A 38 , COM (211)) , (DPWGDS, COM(235)), ( DELFG , COM(236)), 

1 (DELFN, COM (237)), (DELSFC, COM (238)), (CVDHNG, COM (239)) 
EQUIVALENCE (CVDNOZ, COM(240)), (CVMNOZ, COM(241)), 

1 (TFLPDS , COM (275)), (CNLrDS, COM (276)), (ETLPDS , COM (277) ) , 

2 (TFIPDS, COM (278)), (CNIPDS, COM (279) ) , (ETIPDS, COM (280)), 

3 (PRCDS, COM (2 97) ) , (ETACDS, C0M(298)), (PCNC, COM(301)), 

4 ( PCBLC , COM (302) ) , (PCNCDS, COM(303)), (PCELI, COM(304)), 

5 (PCBLID, COM (305)), (WACI, 031(310)), (WACC, COM (320) ) , 

6 ( A M6 , COM (327)), (A6, COM(328>), (T7DS , COM(342)), 

7 (T7, COM (343)), (A8, COM(346)), (ETAADS, COM(366)), 

3 (DPAFDS, COM (367)), ( W FA, CO.M{368)), (ETA A , COM (369)), 

9 (VFAN, COM (395)), (VINTC, COM(396)), (VCOMP, COM(397)), 

1 ( V COM B, COM (398) ) , (VHPTRB, COM! (399)) , (VIPTRB, COM(400)), 

2 ( VLPTRB , COM (401)) , (VAFTBN, COM(402)), (VFDUCT, COM(403)), 

3 (VWDUCT, COM (404)), (XNHPDS, COM (423)), (XNIPDS, COM (424)), 

4 (XNLPDS, COM (425)), (PMIHP, COM (426)), (PMIIP, COM (427)), 

5 ( PMILP , COM (428)) , (DELT1 , COM(429)), (TIMEPT(I), COM (941)), 

6 (PRFNEW, COM (991)), (PRCNEW, COM{992)), (TIME, COM(993)), 

7 (DT, COM (994) ) , (TF, COM(995)>, (T PRINT , COM(996)), 

8 (DTPRNT, COM (997)), (ISPOOL, COM (1044)), (KKGO, COM (1048)), 

9 (ITRAN, COM (1049)) , (JTRAN, COM (1050)), (NSTEP, COM(1051)), 

1 (IAMTRX , COM ( 1 054) ) , (SI, COM(1055)), (ERRER, COM(1056)) 

EQUIVALENCE (DUMSPL, COM(1057)), (FXFN2M, COM(1058)), 

1 (FXM2CP, COM (1 059) ) , (AFTFAN, COM(IOoO)), (FAN, COM(1061)), 


A3CDE 435 
A3CDU436 
ABCD4437 


ABCD4038 
ABCD4439 
ASCD4440 
ABCD444 1 
ABCD4442 
ABCD4443 
ABCD4 4 4 4 
ABCD4445 
A3CD4446 
ABCD4447 
ABCD4 4 0 
ABCD4443 
ABCD4450 
A8CD445 1 
ABCD4452 
ABCD4453 
ABCD445 4 
ABCD4455 
A3CD4455 
ABCD4457 
ABCD4459 
ABCD4459 
ABCD4450 
, ABCD4461 
ABCD4462 
ABCD4U63 
ABCD4454 
ABCD4455 
ABCD4466 
ABCD44S7 
ABCD4469 
ABCD4469 
ABCD4470 
ABCD4471 
ABCD4472 
ABCD4473 
ABCD4474 
ABCD4475 
ABCD4476 
ABCD4477 
ABCD4478 
ABCD4479 
ABCD4433 
ABCD4481 
A BCD4482 
ABCD4483 
ABCD4484 
A3CD4495 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


** * 
*** 
*** 
★ * * 
*** 

*** 
*** 
*** 
*** 
*** 
*** 
*** 
*** 
** * 

*** 
*** 
** * 
** * 
** * 
*** 
*** 
*** 
*** 
*** 
*** 
*** 


=1 

= 2 
=3 
= 1 


2 (WAFCDS, COM (1062)) A BCD 4 fl 86 

DATA AWORD /4HPUTI, 4 HN / ABCD4487 

=1 FOR CALCULATING DESI3K POINT ABCD4488 

=0 FOR CONSTANT T4 A8CD4489 

FOR CONSTANT PCNC ABCD4490 

FOR CONSTANT HFB ABCD4491 

FOR CONSTANT PCNF ABCD4492 

WILL NOT INITIALIZE POINT ABC04433 

WILL DUMP LOOPIN3 WRITE-OU^S IF ERROR OCCURS ABCD° 4 9'4 

WILL DUMP LOOPING WRITE-OUTS AFTER EVERY POINT ABCD4495 

WILL USE INPUT AM AND MIL SPEC ET AR ABCD4495 

WILL USE INPUT AM AND INPUT ETAE ABCD4497 

WILL USE T2 AS T1=T1*T2 AND STANDARD PI ABCD4498 

WILL USE P2 AND STANDARD T1 ABCD449 9 

WILL USE T2 AND P2 ABCD4500 

WILL USE RAM 2 FOR SPECIAL RECOVERY ABCD45D1 

IGASMX=-1 SEPARATE FLOW, INPUT A6 ABCD4532 

IGASMX=0 SEPARATE FLOW, A6=A55 ABCD4503 

WILL MIX DUCT AND MAIN STREAMS, A6=A25+A55 A8CD4504 

WILL MIX DUCT AND MAIN STREAMS, INPUT A6 ABCD4505 

FOR DUCT BURNING, INPUT T24 ABCD4505 

FOR DUCT BURNING, INPUT WFD ABCD4507 

FOR AFTERBURNING, INPUT T7 ABCD4503 

FOR AFTERBURNING, INPUT W F A ARCD450 C 

DUCT NOZZLE WILL BE C-D ABCD4519 

MAIN NOZZLE WILL BE C-D ABCD4511 

FOR FLOATING MAIN NOZZLE A3CD4512 

FOR FLOATING DUCT NOZZLE ABCD4513 

FOR FLOATING MAIN AND DUCT NOZZLES A3CD4514 

NUMBER OF PASSES THRU ENGINE BEFORE QUITTING ABCD4515 

NAMELIST /DATAIN/ IS POOL, F AN , S I , DELT 1 , IDES , MODE, IDUM P, IAM TP , ABCD4515 

1 IGASMX, IDBURN , IAFTBN, I DCD, IMCD , NOZ FLT , ITR YS , FXFN2 M , FXM 2CP , ABCD451 7 

2 AFTFAN,DUMSPL,TOLALL,DELFG,DELFN, DELS FC, PCNFDS , PR FDS , ET A F DS , A BCD 4 518 

3 PCNCDS,PRCDS, ETACDS,T4DS, W FBDS , ET A BDS , DPCODS , ETH PDS , ET LPDS , ABCD4519 

4 DPDUDS,T7DS,ETAADS , DPAFDS , A6 , A3 , A2 8 , PS 5 5 , AM55, CV DNOZ , CVMNOZ, T2, ABCD4 52 0 

5 P2,T4, WAFCDS, WACCDS, HPEXT, AM, A LTP , ETAR , PCN F , PCNC , WFE , PCBL F , PC NI , ABCD4521 

6 PCBLC,PCBLDU, PC BLOB, PC BLH P , PCBLLP, T2 4, ET AD, T7 , WFA, ET A A , AM6 , AM2 3 , A3CD4522 

7 DPWGDS, A38,PCNIDS,PCBLIP, ZFDS, Z CDS , ZID S , PCBLID, TFH PDS , CNH PDS, A3CD4523 

8 TFIPDS,CNIPDS,TFLPDS,CNLPDS,PRIDS, ET AIDS , ET IPDS , W A ICDS , PC BLI , ABCD4524 

9 CVDWNG, ITRAN,DTPRNT,TF,INIT, DT , XNH PDS , XNIPDS , XNL PDS , PMIHP , PHI I P, ABCD4525 

1 PMILP, VFAN,VINTC, VCOMP, VC 0 MB , V H PT R B, VIPTRB, VLPTRB, VAFTBN, VFDUCT, ABC 04 52 5 

2 VWDUCT, IAMTRX ABCD4527 


IDES 
MODE 
MODE 
MODE 
MODE 
INIT 
IDUMP =1 
IDUMP =2 
IAMTP =0 
IAMTP =1 
IAMTP =2 
IAMTP =3 
IAMTP =4 
IAMTP =5 


IGA S MX= 1 
IGASMX=2 
IDBURN= 1 
IDBURN=2 
IAFTBN=1 
IAFTBN=2 
IDCD =1 
IMCD =1 
NOZ FLT= 1 
NOZFLT=2 
NOZ FLT=3 
ITRYS =N 


WORD ( 1 ) = AWORD ( 1 ) 

ABCD4528 

WOR D ( 2) = AWORD ( 2) 

ABCD4529 

ITRAN = 0 

ABCD4530 

JTRAN = 0 

ABCD4531 

TIMB = O.ODO 

ABCD4 5 32 

NSTEP = 0 

ABCD4533 

TPRINT = O.ODO 

A3CD4534 

DTPRNT = O.ODO 

ABCD4535 

CALL ZERO 

ABCD4536 

IF (KKGO . EQ. 1) GO TO 5 

AECD4537 

IDES = 0 

ABCD4533 

READ (5, DATAIN) 

ABCD4539 
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IF (.NOT. ERRER) GO TO 102 


A3CD4540 


IF (IAFTBN .GT. 0 .OB. IDBURN . GT. 0 .OB. NOZFLT .GT. 0) 

GO TO 

1 ABCD4541 

102 

ERREB = .FALSE. 


ABCD4542 

C 

TABLE IS BEFEBENCED TO COM (ION /ALL /FIB ST ENTRY 


ABCD4543 


IF (IDES .EQ. 0) GO TO 7 


ABCD4544 


IF (KKGO .NE. 2) GO TO 3 


ABCD4543 


TEMPI = COM (325) 


ABCD4545 


TEMP2 = COM (326) 


ABCD4547 


TEMP3 = COM (336) 


ABCD4548 


TEMP4 = COM (370) 


ABCD4549 


DO 2 I = 1,392 


ABCD4550 

2 

COM (1 + 2) = XSAVE(I) 


ABCDU551 


DO 205 I * 1,4 


ABCD4552 

205 

COM (1+1 056) = XSAVE (1+392) 


ABCD4 553 


COM (325) = TEMPI 


ABCD4 554 


COM (326) = TEMP2 


ABCD4555 


COM (336) = TEMP3 


ABCD4*55 


COM (370) = TEMP4 


ABCD455? 


READ (5 , DATAI N) 


A3CD4558 

c 

SAVE INPUT IN CASE OF LOOP ON PRESSURE PATIOS 


A BCD4 c 5 ? 

3 

TEMPI = XSAVE (323) 


ABCD4 550 


TEMP2 = XSAVE (324) 


APCD45S 1 


TEMP3 = XSAVE (334) 


ABCD4562 


TEMP4 = XSAVE (368) 


ABCD45-3 


DO 4 1=1,392 


A 3CD4 5 6 4 

4 

XSAVE(I) = COM (1 + 2) 


ASCD'-* 56 5 


DO 405 1=1,4 


A3CD& c 65 

405 

XSAVE (1+392) = COM (1+1056) 


A3CD4 56 7 


XSAVE (323) = TEMPI 


ABCD4 563 


XSAVE (324) = TEMP2 


ABCDf 56 a 


XSAVE (334) = TEMP3 


ABCD4570 


XSAV E (368) = TEMF4 


ABCDU571 


GO TO 7 


A3CD4572 

5 

TEMPI = COM (325) 


AECDU573 


TEMP2 = COM (326) 


A3CD4574 


TEMP3 = COM (336) 


ABCD4 573 


TEMP4 = COM (370) 


A3CD4 C 76 


DO 6 I = 1,392 


A BCD- 1 5 7 7 

6 

COM (1 + 2) = XSAVE (I) 


ABCD45 7 R 


DO 605 I = 1,4 


ABCD4579 

605 

COM (1+1056) = XSAVE (1+392) 


A3CD4580 


COM (325) = TEMPI 


ABCD4 581 


COM (326) = TEMP2 


A B C D 4 5 8 2 


COM (336) = TEMP3 


ABCD4583 


COM (370) = TE MP4 


ABCD4584 


WRITE (6,8) PRFDS, PEFNFW, PRCDS, PHCN EW 


A.BCD4585 


PRCDS = PRC NE W 


A3CD4 585 


PRFDS = PRFNEW 


ABCD4587 

7 

KKGO = 2 


ABCD4588 


IF (IAFTBN .GT. 0 .OR. ID3URN .GT. 0 .OR. NOZFLT .GT. 0) 

I NIT = 

1 ABCD4589 


IF (MODE .EQ. 0) WRITE (8,9) I DBS , A M, A LT P, T 4, T 24 , T 7 


ABCD4593 


IF (MODE .EQ. 1) WRITE (3,10) I DE S , A M , A LTP , PCNC , T24 , T7 


ABCD4591 


IF (MODE .EQ. 2) WFITE (8,11) I DE S , A M , ALTF , WFB , T24 , T7 


ABCD4592 


IF (DUMSPL) WAICDS = WACCDS 


ABCDB 593 
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CD o o 


! 


1) GO TO 101 


IF (IDES .NE. 
WAFC = HAFCDS 
WACI = HAICDS 
H ACC = WACCDS 
101 CALL COINLT 
RETURN 


FORMAT (18H0CHANGE PRFDS FROM, F9.3, 
1 FROM, F10.3, 4H TO, F10.3) 


4 H TO, F9.3, 17 H 


9 

FORMAT 

(1 HO, 7 H 

IDES=, 13, 

10X, 7 H 

AM=, F7. 3, 

6X , 7 H 

ALTP= 


1 F7 . 0 , 

6X , 7H 

T4=, F8.2, 

5X, 7H 

T24=, F8.2, 5X 

, 7H 

T7=, 


2 F8.2, 

6H$$$$$$) 






10 

FORMAT 

( 1 H C , 7H 

IDES= , 13, 

10X, 7 H 

A M= , F7.3, 

6X, 7H 

ALTP = 


1 F7.0, 

6 X , 7H PCNC= , F8.3, 

5X, 7H 

T24=, F8.2, 5X 

, 7 H 

T7=, 


2 F8.2, 

6H$$$$$$) 






11 

FORMAT 

( 1 HO, 7 H 

IDES=, 13, 

10X, 7 H 

AM=, F7. 3 , 

6X, 7H 

ALTP= 


1 F7.0, 

6X, 7H 

WFB=, F6.4, 

5 X , 7 H 

T24=, FR.2, 5X 

. 7 H 

T7 = , 


ABCD4594 
ABCD4595 
ABCD4595 
ABC D4 59 7 
ABCD4593 
ABCD4599 
ABCD4600 
ABCD4601 
AND PRCDSABCD4602 
ABCD4603 


ABCD4605 

ABCD4606 


2 F6.2, 
END 


6H$$$$i$) 


ABCD4603 
ABCD4609 
ABCD4610 
ABCD461 1 
ABCD4612 
ABCD4613 


Subroutine RAM 


3 


SUBROUTINE RAM (AM, ETAR) 

IMPLICIT R E A L* 8 (A-H,0-Z) 

ETAR = 1.0D0 

IF (AM .LE. 1.0DC) RETURN 
IF (AM .GT. 5.CD0) GO TO 3 

ETAR = 1.0D0 - 0.075D0 * ((AM - 1.0D0) ** 1.3bD0) 

PETURN 

ETAR = 800. 000 / ((AM ** 4) + 935. 0D0) 

RETURN 

END 


ABCD4614 
ABCD461 5 
ABCD4615 
ABCD4 6 1 7 
ABCD461 3 
A3CD'»61? 
ABCD4620 
ABCD4621 
ABCD4622 
ABCD4623 


Subroutine RAM2 


1 


2 


SUBROUTINE F A M2 ( A M, nT A F ) 

IMPLICIT REALMS (A-H,0-Z) 

DIMENSION PR I NLT (15), BMN(15), K(1), Y(3) 

DATA FMN /0.0D0, .100, .2D0, .300, .4D0, 

1 1.2D0, 1.4D0, 1 .600, 1.PDC, 2.200, 2.40", 

DATA PRINLT /.9D0, .93200, .9500, .961D0, 

1 . 97 DO, . 9681 DO, . 95800, .9400, .918100, . 

M = 0 

DO 1 J = 1, 15 

IF (AM . GE. FMN ( J ) ) M = J - 1 

CONTINUE 

IF (M .EQ. 0) M = 1 
IF (M .GE. 14) M = 13 
DO 2 1=1,3 

MM = M - 1 ♦ I 

X(I) = FMN (MM) 

Y (I) = PEINLT (MM) 

CALL PAPABO ( X , Y , AM , ET A R) 


.500, . PDC, 1. 100 
2 . 7 DO/ 

. 968D0, . Q 7 DO , 

158D0, .320100, 


A8CD4624 
ABCD4625 
ARCD462S 
AECD4627 
AP.CDU628 
.970100, ABCD4629 
.'’500/ A3CO4630 

A3CD4631 
ABCD4632 
ABCD4633 
ABCD4634 
A BCD 4 6 3 5 
ABCD4635 
A3C046 37 
ABCD46 3? 
ABCD4639 
ABCD4640 
a Rrnu FU 1 


PEIURN 

END 


A 3CD464-2 
ABCD4643 
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Subroutine ROLL 


SUBROUTINE FOLL 

IMPLICIT REAL* 8 (A-H,0-Z) 

COMMON /COM ALL/ COM ( 1062) 

DIMENSION FO (50,4) , SO(13,6), PDATA(5,50) 
EQUIVALENCE (FO(1,1), COM(43C)), ( SO ( 1 , 1 ) 


TIMEPT (50) 
COM (631) ) , 


ABCD4644 
A3CD4 645 
A3CD4645 
ABCD46 4 7 
AECD4649 



1 (PDA I A (1, 

1), COM (69 1) ) , (TIMEPT (1), COM (941)) 

ABCD4 649 


DO 1 I = 

1,50 

A BCD4 6 C 0 


FO (1 , 2) = 

FO ( 1 , 1) 

ABCD455 1 

1 

FO (1,4) = 

FO (I , 3) 

ABCD4652 


DO 2 I = 

1,10 

ABCD4 653 


SO (1,6) = 

SO (I , 5 ) 

A BCD4 6 5 4 


so (I, 5) = 

SO ( I , 4 ) 

ABCD'4655 


SO (I , 3) = 

SO (I ,2) 

ABCD465S 

2 

SO (I, 2) = 

SO(I, 1) 

ABCD4657 


DO 3 I = 

1 ,49 

A BCD 0 6 5 p 


Nl = 51 - 

I 

ABCD4659 


NO = 50 - 

I 

ABCD4660 


TIM EFT (N 1) 

= TIMEPT (NO) 

ABCD46S 1 


DO 3 J = 

1 ,5 

ABCD4662 

3 

PDATA(J,Nl) = P D A T A ( J , N 0 ) 

RETURN 

END 

ABCD4663 

ABCD46M 

ABCD4665 


Subroutine SEARCH 


SUBROUTINE SEARCH (P , A , B , C , D, AX , N A , BX , CX , DX , NO , NAM, NOM, NCODE) 
IMPLICIT REAL*8 (A-H,0-Z) 

COMMON /COMALL/ COM (1062) 

DIMENSION AX (MAM) , BX ( NAM , NOM) , CX ( NAM , NOM) , DX (NAM, NOM) , 

1 NO (NAM) , Q (9) 

EQUIVALENCE (TOLALL, COM (23)) 

C *** NEEDS SUBROUTINE AFQUIR 
C *** AX AND bX MUST BE STORED LO TO HI 
C *** P=IN PUT PROPORTION BETWEEN 0.0 AND 1.0 
C IF NOT INPUT, P MUST EQUAL -1. 

C *** NCDDE=00 OK 

C NCODE =0 1 A LO 

C NCODE=0 2 A HI 

C NCODE=07 ERROR 

C NCODE= 10 B LO 

C NC0DE=20 B HI 

EXTR ( AAA, EBB, CCC) = AAA + BEE * (CCC - AAA) 

NCODE = 0 
C = O.CDO 
D = 0.0D0 
C *** FIND A 

DO 1 I = 1 ,N A 
IH = I 

IF (A .LT. AX ( I) ) GO TO 2 


ABCD4666 
ABCD4 6 5 7 
A3CD466 B 
ABCD465 3 
ABCD4670 
AECD467 1 
ABCD4672 
A8CD4673 
ABCD4674 
A3CD4675 
ADCD'4 6 7 5 
ABCD4677 
ABCD4673 
A3CD4679 
ABCD'4 6 9 0 
ABCD4681 
A3CD4682 
ABCD46S3 
ABCD46S4 
A3CD4635 
ABCD46 85 
ABCD4687 
A3CD4688 
ABCD4689 


128 



1 

CONTINUE 

A BCD 4 6 


IF (A .GT. AX ( I H) ) NCODE = 2 

ABCD46? 1 


A = A X ( I H) 

A3CD4 6 92 


GO TO 3 

ABCD4 6 93 

2 

IF (IH .GT. 1) GO TO 3 

A3C94554 


NCODE = 1 

A3CD4695 


IH = 2 

A3CDU69S 


A = A X ( 1 ) 

A3CD46°7 

3 

IL = IH - 1 

ABCD453? 


LIMH = NO (IH) 

A BCD4 6 ° 9 


LIML = NO ( IL) 

A 3CD' 1 7 0 3 

c *** 

FIND B 

ABCD4701 


PPM = (A - AX (IL) ) / (AX (IH ) - AX (IL) ) 

ABCD4702 


PP = P 

A3CD4 70 3 


IF (P .GE. 0. 0 DO ) GO TO 6 

ABCD4704 


BL = EXTR (BX (IL, 1) , PPM, BX(IH,1)) 

ABCD4 705 


BH = EXTR (BX (IL, LIML) , PRM, BX(IH,LIMH)) 

A3CD4706 


IF (B . GE. BL) GO TO 4 

ABCD4707 


NCODE = NCODE + 10 

ABCD47C8 


B = BL 

ABCD47C? 


GO TO 5 

ABCD4710 

4 

IF (B .LE. BH) GO TO 5 

A3CDt'71 1 


NCODE = NCODE * 20 

A BCD 4 712 


BHM = EXTR (BX (IL, LIML- 1) , PPM, B X ( I H , LI MH- 1 ) ) 

A BCD 4 7 1 3 


CHM = EXTR (CX (IL, LIML- 1) , PRM, C X ( I H , L IM H- 1 ) ) 

ABCD4714 


DHM = EXTR (DX (IL,LIML-1 ) , PPM, DX ( I H , LIM H-1 ) ) 

A3CD4715 


CH = EXTR (CX (IL, LIML) , PRM, CX(IH,LIMH)) 

ABCD471 5 


DH = EXTR (DX(IL, LIML) , PRM, DX(IH,LIMH)) 

A3C0471 7 


CSLOPE = (CH - CHM) / (BH - BHM) 

ABCD4713 


DSLOPE = (DH - DHM) / (BH - BHM) 

ABCD071 9 


C = CH + CSLOPE * (B - BH) 

A BCD'-* 7 2^ 


D = DH ♦ DSLOPE * (B - BH) 

ABCD4721 


RETURN 

ABCD4722 

5 

PP = 0.5D0 

ABCD4723 


Q (2) = 0.0D0 

ABCD4724 


Q (3) = 0.0D0 

ABCD4725 

6 

gH = EXTR(BX(IH,1) , PP, BX(IH,LIMH)) 

A BCD*'. 725 


BL = EXTR (BX(IL, 1) , PP, BX(IL,LIML)) 

ABCD4727 


DO 7 J = 2, LIMH 

A3CD4728 


JH = J 

ABCD4729 


IF (BH .LT. B X (IH , J) ) GO TO 8 

ABCD4730 

7 

CONTINUE 

ABCD473 1 

8 

JL = JH - 1 

ABCD4732 


DO 9 K = 2, LIML 

ABCD4733 


KH = K 

ABCD4734 


IF (BL .LT. BX (IL, K) ) GO TO 10 

ABCD4735 

9 

CONTINUE 

ABCD4736 

10 

KL = KH - 1 

ABCD4737 


PR = (BX (IH, JL) - BH) / (BX (IH, JH) - 8X(IH,JL)) 

A3CD4733 


CH = EXTR (CX(IH, JL) , -PR, CX(IH,JH)) 

ABCD4739 


DH = EXTR (DX(IH, JL) , -PR, DX(IH,JH)) 

ABCD4740 


PR = (BX (IL, KL) - BL) / (BX(IL,KH) - BX(IL,KL)) 

ABCD4741 


CL = EXTR (CX(IL,KL) , -PR, CX(IL,KH)) 

ABCD4742 


DL = EXTR (DX(IL,KL) , -PR, DX(IL,KH)) 

ABCD4743 
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BT = EXTR (BL, PRM, BH) 

ABCD4744 


CX = EXTR (CL, PRM, CH) 

A3CD4 74 5 


DT = EXTR (DL, PRM, DH) 

ABCD4 74 5 


IF (P .GE. 0.0D0) GO TO 13 

ABCD4747 


DIR = DSQRT (B / BT) 

ABCD4743 


ERR = (B - BT) / B 

ABCD4749 


CALL AFQUIR (Q ( 1) , PP, ERR, 0. ODO, 2 5 . ODO, 1 . ODO + TOLALL , DI R , PT, ICON) 

ABCD475D 


GO TO (11,13,12) , ICON 

ABCD4751 

11 

PP = PT 

ABCD4752 


IF (PP .LT. O.ODO) PP = 0. ODO 

A8CD4753 


IF (PP .GT. 1 . ODO) PP = I.ODO 

ABCD4754 


GO TO 6 

ABCD4755 

12 

NCODE = 7 

ABCD4 756 

13 

B = BT 

ABCD4757 


C = CT 

ABCD4758 


D = DT 

ABCD4759 


RETURN 

A3CD4760 


END 

Subroutine SYG 

ABCD475 1 


SUBROUTINE SYG (ICON) 

ABCD4762 


DIMENSION WORD (132) 

A3CD476 3 


DATA ONEDOL /4H$ / 

A3CD4764 


GO TO (1,2) , ICON 

ABCD4755 

1 

REWIND 8 

ABCD4766 


RETURN 

ABCD47S7 

C 

TERMINATE THE FILE 

ABCD47P9 

2 

WRITE (8,10) 

ABCD4759 


REWIND 8 

ABCDl'77C 

C 

READ RECORD 

A3CDU771 

3 

READ (8,11) (WORD(I) ,1=1 ,132) 

A3CD4772 

C 

CHECK F03 12 LEADING DOLLAR SIGNS 

ABCD4 773 


DO 4 1=1,12 

ASCD4774 


IF (WORD (I) .NE. ONEDOL) 30 TO 5 

ABCD4 " T 75 

4 

CONTINUE 

ABCD4775 


RETURN 

ABCD4777 

C 

CHECK FOR 6 TRAILING DOLLAR SIGNS 

ABCD4779 

5 

DO 8 I = 1, 132 

ABCD4779 


IF (WORD (I) .NE. ONEDOL) 30 TO 8 

ABCD478G 


K = I + 5 

ABCD4791 


DO 7 J = I , K 

ABCD4732 


IF (WORD ( J ) .NE. ONEDOL) 30 TO 8 

ASCD4783 

7 

CONTINUE 

A3CD4784 


GO TO 9 

ABCD4785 

S 

CONTINUE 

APCD4785 


WRITE (6,12) 

A BCD 4 7 n 7 


RETURN 

ABCD4793 

c 

PRINT LINE 

ABCD4789 

9 

1 = 1-1 

ABCD4790 


WRITE (6,11) (WORD (M) ,M=1,I) 

ABCDH791 


GO TO 3 

AECD4792 

c 


ABCD4793 

c 
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ABCD4 7 Q 4 



10 

FORMAT 

(12H$$ $£$$$$$$$$) 

A3CD4795 

11 

FORMAT 

( 1 3 2 A 1 ) 

ABCD4796 

12 

FORMAT 

( 1 HO , 1 2 HERROR IN SYG) 

ABCD4797 


END 


ABCD4793 


Subroutine THCOMP 


SUBROUTINE THCOMP ( PR, ET A , T , H , S , P, TO, HO , SO, PO) 
IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL SI 

COMMON /COMALL/ COM (1062) 

EQUIVALENCE {TOLALL, COM(23)) r (SI, COM (1055)) 
CPG = . 25D0 

IF (SI) CPG = 1048. 0D0 
PO * P * PR 

TP = T * PR ** 0. 28572D0 
DO 1 I = 1,25 

CALL THERMO ( PO , HP, TP, SP , X 1 , 0, X2 , 0) 

DELS = SP - S 

IF (DABS (DELS) .LE. .05D0 * TOLALL * S) GO TO 2 

1 TP = TP / DEXP (DELS / CPG) 

CALL ERROR 

2 HO = H + ( (HP - H) / ETA) 

CALL THERMO ( PO , HO , TO , S 0, X 1 , 0 , X 2 , 1 ) 

RETURN 

END 


ABCD4799 
A3CD4800 
AECD4901 
ABCD4802 
ABCD4903 
ABCD4804 
A9CD4905 
ABCD4805 
ABCD4837 
ABCD4809 
ABCD4309 
ABCD4B10 
ABCD491 1 
ABC04912 
ABCD481 1 
A BCD 11 814 
ABCD4815 
A3CD4915 
ABC DU 81 7 


Subroutine THERMO 


SUBROUTINE THERMO ( PX , H X ,T X , SX , AMX, L , F A R , K) 
IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL SI 

COMMON /COMALL/ COM (1062) 

EQUIVALENCE (TOLALL, COM(23)), (SI, COM (1055)) 

IF (SI) GO TO 100 
DEM = 1.986375D0 

CPG = . 25D0 

PST D = 1 . 0 DO 
GO TO 101 

100 DEM = 8316. 41D0 
CPG = 1048. 0D0 
PSTD = 101325. 0D0 

101 FX = 0.0D0 

IF (L .EQ. 1) FX = FAR 

IF (K .EQ. 1) GO TO 1 

CALL PROCOM ( FX , TX, CS , A K , Z P , R , PH I, H X) 

GO TO 3 

1 TX = HX / CPG 
DO 2 I = 1,50 

CALL PROCOM ( FX, TX , CS , A K , C P , P , P H I, H ) 

DELH = HX - H 

IF (DABS (DELH) .LE. .01D0 * TOLALL * HX) GO TO 3 

2 TX = TX + DELH / CPG 
WRITE (8,4) 


A3CD4913 
ABCD481 9 
ABCD4923 
ABCD4821 
ABCD4622 
ABCD4923 
ABCD4P24 
A9CD4825 
ABCD482S 
ABCD4 r *27 
ABCD4928 
ABCD4829 
ABCD4933 
ABCDU831 
ABCD4932 
ABCD4333 
ABCD4 8 3 4 
ABC04835 
A3CD4836 
ABCD4837 
ABCD4933 
A 3 C D 4 9 3 9 
ABCD4840 
ABCDU 94 1 
A3CD4842 
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u u & 


3 SX = PHI - R * DLOG (PX / PSTD) 

AMX = DEM / R 
RETURN 


FOR MAT (31 HONO CONVERGENCE IN rHERMO$$$$$$) 
END 


ABCD4843 

ABCD484'4 

ABCD4845 

ABCD4845 

ABCD4847 

ABCD4843 

ABCD4849 


Subroutine THTURB 


SUBROUTINE THTURB (DH , ET A, F AR , H , S, P , T 0, HO, S 0 , PO) 
IMPLICIT REALMS (A-H,0-Z) 

LOGICAL SI 

COMMON /COMALL/ COM (1062) 

EQUIVALENCE (TOLALL, COM(23)), (SI, COM (1055)) 

DEM = 1.986375D0 

IF (SI) DEM = 8316. U1D0 

HO = H - DH 

HOP = H - DH / ETA 

PT = P / 2.0D0 

DO 1 I = 1,25 

CALL THERMO ( PT , HOP , TT , ST, A MWT , 1 , F A R , 1 ) 

DELS = ST - S 

IF (DABS (DELS) . LE. .05D0 * TOLALL * S) GO TO 2 

1 PT = P * DEXP (DELS * AM NT / DEM ♦ DLOG (PT / P) ) 
CALL ERROR 

2 PO = PT 

CALL THERMO ( PO, HO, TO , SO , X 1 , 1 , FAR , 1 ) 

RETURN 

END 


ABCD4850 
ABCD485 1 
ABCD4952 
ABCD4853 
ABCD4954 
ABCD4855 
ABCD4855 
ABCD4857 
ABCD4858 
ABCD4859 
ABCD485P 
ABCD4861 
ABCD4852 
ABCD4863 
ABCD4864 
ABCD4855 
ABCD4866 
ABCD4857 
ABCD4868 
ABCD4869 


Subroutine WDUCTI 


SUBROUTINE WDUCTI 
IMPLICIT REAL*8 (A-H,0-Z) 

LOGICAL SI 

COMMON /COMALL/ COM (1062) 

DIMENSION WORD (2), ERR (9) 

DIMENSION Q (9) , XZERO(25), AW3RD(2) 

EQUIVALENCE (WORD(1), COM(1)), (IDES, COM (3) ) , (IDSHDC, COM (15)) 
(TOLALL, COM (23) ) , (EPR(1), COM (24)), (Pi, COM (33) ) , (WAC, 

:OM{191)), (WG37, COM (210) ) , (XZERO(I), CON (210)), (A38, 

COM (212) ) , ( V 3 8 , COM (213)), (T38, COM(214)), 

(P38, COM (216) ) , 

( A39 , COM (21 9) ) 

(T39, COM (222)), 

(TS 39 , COM (22 5) ) 


COM (211)) , (AM38, 

( H 3 8 , COM (215) ) , 
(PS38, COM (218)) 
(V39, COM (221)), 
(P39, COM (224) ) , 
(WA32DS, COM (227) ) 
(DPWGDS, COM (235)) 
(WA32, COM (271) ) 


(TS38, COM (217)), 

(AM39, COM (220)), 

(H39, COM (223) ) , 

(PS39, COM (226) ) , 

, (DPWING, COM (2 28)) , (BPRINT , COM(229|) 
, (T 2 1, COM (263) ) , (H21, COM(26U)), 

(PCBLID , COM (305)), (P21, COM (377) ) , 


(P37, COM (393)) 

(SI, COM (1055) ) 

DATA AWORD /4HWDUC, 4 HTI / 
WOP D ( 1 ) = AWORD ( 1) 


(U37, COM (394)), (VWDUCT, COM (404)) 


ABCD4870 
ABCD4871 
ABCD4872 
ABCD4873 
ABCD4874 
ABCD4875 
, ABCD u 876 
ABCD4877 
ABCD4P73 
ABCD4879 
A3CD4880 
ABCD4881 
ABCD4882 
ABCD4883 
ABCD4884 
ABCD4835 
ABCD4886 
ABCD4887 
ABCD4888 
ABCD4889 
ABCD4890 
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100 

101 

1 

3 


18 


19 

20 
21 


4 

5 


WOR D ( 2) = A WO RD ( 2) 

IF (SI) GO TO 100 
RA = . 0252D0 
AJ = 2.719D0 
GO TO 101 
RA = 286. 9D0 
AJ = 1.0 DO 

IF (PCBLID .GT. 0. 0 DO ) GO TO 3 

DO 1 I = 1,25 

XZERO(I) = C.ODO 

RETURN 

P32 = P21 

H32 = H21 

T32 = T21 

BPRINT = WA32 / WAC 
WA32C = WA32 * DSQRT (T32) / P32 
IF (IDES . EQ. 1) WA32DS = WA32C 
DPWING = DPWGDS * WA32C / WA32DS 
DPWING = DKIN1 (1 .0D0, DPWING) 

P36 = P32 * (1.0D0 - DPWING) 

T36 = T32 
H36 = H32 

CALL THERMO { P3b , H36 , T3 6 ,S 3 6 , XX2 , 1 , 0 . 0 DO , 0) 

WG37 = WA32 
T37 = T36 
P37 = P36 
H37 = H36 
S37 = S36 

IF ( VWDUCT .EQ. 0.0D0) GO TO 21 
Q (2) = 0.0D0 

Q (3) = 0.0D0 

WG37P = WG37 
H37P = H37 

P37DOT = DERIV ( 22, P37) 

CALL THERMO (P37 , H37 , T37 ,S 3 7 , XX 2 , 1 , 0 . 0 DO , 0) 

WG37 = WG37P - P37DOT * VWDUCT / T37 / 1.4D0 / RA 
U37 = H37 - RA * AJ * T37 
U37DOT = DERIV (23, U37) 

H37X = (WG37P * H37P - (WG37P - WG37) * U37 - U37DOT * P37 * 

1 VWDUCT / T37 / RA) / WG37 
ERRW = ( H37 - H37X) / H37 

DIR = DSQRT (DABS (H37 / H37X)) 

CALL AFQUIR (Q(1) , T37 , ERRW, 0 . 0D0 , 2 0 . 0D0 , . 1 D 0*TOLALL , DI R , T3 7T , IG 0) 

GO TO (19,21,20) , IGO 

T37 = T37T 

GO TO 18 

CALL ERROR 

CALL CONVRG (T37 , H37 , P 37 ,S 37, 0. ODO, WG37, P 1 , IDES, A38 , P3 8R , T 38 ,H38 , 
1 P38,S38,TS38,PS38,V38,AM38,ICON) 

GO TO ( 5 , 5 , 5 , 4 ) , ICON 

CALL ERROR 

T39 = T38 

H39 = H38 

P39 = P38 


A3CD4891 
ABCD4 8? 2 
A BCD4 8 9 3 
ABCD46°4 
ABCD4B95 
A 3CD4 8°5 
A3CD4897 
ABCD4898 
ABCD4 8 3 9 
ABCD4 900 
ABCD4901 
A3CD4902 
A 3CD4 q 0 3 
ABCD»904 
A3CD4905 
A BCD 4 90 5 
A3CD4 907 
ABCD4909 
ABCD4909 
A3CD4910 
A3CD491 1 
ABCD4912 
ABCD491 3 
ABCD4 9 1 4 
ABCD491 5 
ABCD4915 
A3CD091 7 
ABCD4913 
A3CD491 9 
ABCD4920 
A3CD4921 
ABCD4922 
ABCD4923 
ABCD4924 
ABC D 4 925 
ABCD4925 
ABCD4927 
ABCD4928 
ABCD4929 
ABCD4930 
ABCD4931 
ABCD4932 
ABCD4933 
ABCD4934 
ABCD4935 
ABCD4935 
ABCD49 3 7 
ABCD4938 
ABCD4939 
ABCD4940 
ABCD494 1 
AECD4942 
ABCD4943 
ABCD4944 
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crs n n 



TS39 = TS38 

V39 = V38 

AM39 = AM38 

A39 = A38 

PS39 = PS38 

IDSHOC = ICON + 3 

EBE (7) = (P38R - P38) / P38R 

IF (IDES .EQ. 1) WRITE (6,6) A39, AM 38, A39, AM 3 9 
REiaRN 


FORMAT (18H0INTER DUCT DESIGN, 5X,8H A38= , E 1 5 . 8 , 8 H AM38=, 

1 El 5. 8, 8H A39=,E1 5. 8 ,8H AM39=,E15.8) 

END 


ABCD4945 

ABCD4946 

ABCD4947 

ABCD49U8 

ABCD4949 

ABCD4950 

ABCD4951 

ABCD4952 

ABCD4953 

ABCD4954 

ABCD4955 

ABCD4955 

ABCD4957 

ABCD4958 


Subroutine ZERO 

SUBROUTINE ZERO 

IMPLICIT REAL*8 (A-H.O-Z) 

COMMON /COMALL/ COM (1062) 

EQUIVALENCE (IDES, COM (3)), (JDES, COM (4) ) , (INIT, C0M(7|), 

1 (IDBURN, COM (11)), (IAFTBN, COM(12)), (IDSHOC, COM(15)), 

2 (IliSHOC, COM (16)), (NOZFLT, COM (17)) 

IDES = 0 

JDES = 0 
INIT = 0 
IDBURN = 0 
IAFTBN = 0 
IDSHOC = 3 
IMSHOC = 3 
NOZFLT = 0 
COM (33) = 0.0D0 

DO 5 I = 37,90 

IF (I .EQ. 41 -OR. I .EQ. 50 .OR. I . EQ. 51) GO TO 5 
IF (I .EQ. 60 .OR. I .EQ. 61 .OR. I .EQ. 75) GO TO 5 
COM (I) = 0.0D0 

5 CONTINUE 

COM (94) = 0.0D0 

COM (95) = 0.0D0 

COM (99) = 0.0D0 
DO 6 I * 102,113 

IF (I .EQ. 107 .OR. I .EQ. 109 .OR. I . EQ. 110) GO TO 6 
COM (I) = 0.0D0 

6 CONTINUE 

DO 7 I = 131,135 

IF (I .EQ. 133) GO TO 7 

COM (I) = 0.0D0 

7 CONTINUE 

DO 8 I = 149,160 

IF (I .EQ. 155 .OR. I .EQ. 156) GO TO 8 
COM (I) = 0.0D0 

8 CONTINUE 

DO 9 I = 171,174 

9 COM (I) = 0.0D0 


ABCD4959 

ABCD4950 

ABCD4961 

ABCD4952 

ABCD4963 

ABCD4964 

ABCD4965 

ABCD4966 

ABCD49S 7 

ABCD4968 

ABCD4969 

ABCD4 970 

ABCD4971 

ABCD4972 

ABCD4973 

ABCD4974 

ABCD4975 

ABCD4975 

ABCD4977 

ABCD4973 

ABCD4979 

ABCD4930 

ABCD4981 

ABCD4992 

ABCD4983 

ABCD4984 

ABCD4995 

ABCD4986 

ABCD4987 

ABCD4988 

ABCD4989 

ABCD4990 

ABCD4991 

ABCD4992 

ABCD4993 

ABCD4994 

ABCD4995 
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10 


17 


DO 10 
IF (I . 
1 GO TO 
COB (I) 


I = 
EQ. 
10 
= 0 


CONTINUE 
DO 1 1 I = 


190,209 
192 .OH. 

0D0 

242,258 


(I .GE. 195 .AND. I .LE. 197) 


ABCD4996 

■ OH. I .EQ. 1 99) ABCD4 997 
ABCD4998 
ABCD4999 
ABCD5000 
ABCD5O01 



IF (I .EQ. 244) GO 

TO 11 





ABCD5002 


COM (I) = 0.0D0 






ABCD5003 

11 

CONTINUE 






ABCD5004 


DO 12 I = 263,265 






ABCD5005 

12 

COM (I) = 0.0D0 






ABCD5006 


DO 13 I = 270,274 






ABCD5007 


IF (I .EQ. 271) GO 

TO 13 





ABCD5008 


COM (I) = 0.0D0 






ABCD5009 

13 

CONTINUE 






ABCD5010 


DO 14 I = 290,293 






ABCD5011 

14 

COM (I) = 0.0D0 






ABCD501 2 


DO 15 I = 306,320 






ABCD5013 


IF ((I .GE. 309 .AND 

*. I .LE 

. 312) .OR. I .EQ. 314) 

GO 

TO 15 

ABCD501 4 


COM (I) = O.ODO 






ABCD5015 

15 

CONTINUE 






ABCD5016 


DO 16 I = 321,355 






ABCD50 1 7 


IF (I .EQ. 325 .OR. 

I . EQ. 

326 . OP. I .EQ. 328) 

GO 

ro 

16 

ABCD50 1 3 


IF (I .EQ. 329 -OR. 

I -EQ. 

336 .OR. I . EQ. 341) 

GO 

TO 

16 

ABCD501 9 


IF (I .EQ. 342 .OR. 

X • EQ. 

346 .OR. I .EQ. 347) 

GO 

TO 

16 

ABCD5020 


COM (I) = O.ODO 






ABCD5021 

15 

CONTINUE 






ABCD5022 


DO 17 I = 358,371 






ABCD5023 


IF (I .EQ. 366 .OR. 

I • EQ. 

367 .OR. I .EQ. 370) 

GO 

TO 

17 

ABCD5024 


COM (I) = 

CONTINUE 
CALL STG 
RETURN 
END 


0.0D0 


(D 


ABCD5025 

ABCD5025 

ABCD5027 

ABCD5023 

ABCD5029 
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APPENDIX C 


SAMPLE CASE INPUT AND OUTPUT 


PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

PCNC 

CNC 

ZC 

PRC 

WACC 

WAC 

T2 

P2 

T21 

P21 

T3 

P3 

PCBLF 

BLF 

PCBLC 

BLC 

PC BLOB 

BLOB 

PCBLHP 

BLHP 

PCBLLP 

BLLP 

T4 

P4 

WA3 

WFB 

WG4 

FAR4 

ETAQ 

DPCOM 

TFFHP 

CN HP 

DHICHP 

DHTC 

T5 

P5 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

PCBLDU 

BLDU 

T24 

P24 

T25 

P25 
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WAD 

WPD 

WG24 

FAR24 

ETAD 

DPDUC 

ETAF 

ETAC 

Er ATHP 

EIATLP 

Art 5 5 

AM25 

T6 

P6 

PS 6 

AM 6 

V6 

WG6 

T7 

WF A 

WG 7 

FAR7 

EX A A 

DP AFT 

PS8 

AM 8 

V9 

PS9 

AM9 

V9 

PS 2 8 
AM 28 
V28 
PS 29 
AM 29 
V29 

BYPASS 

HPEXT 

WFT 

WG T 

VA 

FRD 

CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

THEEND 

S DA TAIN ISPOOL=2,FAN=. TRUE. ,SI=. FALSE. , IDES= 1 , M 0 D E= 0 , IDUMP= 1, IAMTP=0 , 
IGASMX=2, ITRY5=20G, FXFN2M=. FALSE. , FXM2CP = . FALSE. , AFTF A N = . FALSE. , 

DUMSPL = . TRUE. ,TOLALL=.000 1 , DEL F G= 1 . 0 , DE LFN= t. 0 , DELSFC=1. 0 r P CN FDS = 1 0 2. 31 , 
PRFDS = 2. 99 6, ET A FDS= . 849 9 , PCN CDS =98 .7 3 , PR CDS = 8 . 46 2 r ETACD S =. 3 1 3 6 , T4 DS = 28 9 2 . 04 , 
ETABDS=1 . 00,DPCODS=.0561 , ETHPDS= .8713, ETLPDS = . 90 21 , DP DUDS = . 05 84 , T7DS = 3583 . 6, 
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EIAADS = . 8430, DPAFDS=. 0599, A!155=. 283, A M6= . 243,CVMNOZ=. 9494, HAFCDS=221. 573, 
STACCDS = 54.988,HPEXr=0.0, AH=0.0, ALTP=0 . 0, PCBLF=0. 0 , PCBLC= . 1 6 , PCBLDO=. 208 , 
PCBLOB=0.0,PCBLHP=.726,PCBLLP=.066,AM23=. 17 0, ZFDS=. 8333, ZCDS=. 8 1 43, 
rFHPDS=50.0,CHHPDS=2. 0, TPLPDS=1 30.0, CNLPDS =2.3, XNHPDS=10070. , XNLPDS=965 1 . , 
PHIHP=3. 80,PHILP=4.50,VFAN=2. 31 , VCOH P=1 . 65, VCOMB= 1 . 65 , VHPrRB=. 505, 

VLPrRB=. S18,VAFTBN=49.77, VFDUCT=10. 08 6 END 

5DATAXN HODE=2,NFB=2.75,irRAN=0,IDES=0 BEND 
SDATAIN M0DE=2,WFB=2.75,ITRAN=1,IA3TRX=1 SEND 
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FAN DESIGN 


PRFCF= 0.47523476E 

01 

ET AFCF= 0.98548257E 

00 

W APCF= 

0.35527931E 

00 

T2DS = 

0.51355992E 

03 

MIDDLE SPOOL 

DESIGN 

PPICF= 0.10000000E 

01 

ETA ICF= 0. 1 OOOOOOOE 

01 

WAICF= 

o. loooooooe 

01 

T22DS= 

0.74215402E 

03 

COMPRESSOR DESIGN 

PF CC F= 0.10922125E 

01 

ETACCF= 0. 9505173 5E 

00 

WACCF= 

3, 561 73777 E 

00 

T21DS= 

0.7U296402B 

03 

COMBUSTOR DESIGN 

W A3CDS= 0.1133 85 71E 

02 

ET A BCP= 0. 100000D0E 

01 







H.P. TURBINE 

DESIGN 

CNHPCF= 0. 9102146 9E 

00 

TFHPCF= 0.27621708E 

01 

ETHPCP= 

0. 95R11114B 

00 

dhhp:f= 

3. 1 2239298E 

01 

L.P. TURBINE 

DESIGN 

CNLPCF= 0. 1031031 8E 

01 

TFLPCF= 0. 17567140E 

01 

ETLPCF= 

0. 102251 43E 

01 

DHLPCF= 

0 . 24522325B 

01 

TURBIN E/DUCT 
AFTERBURNER 

AREA DESIGN A55 = 0.41317595E 

DESIGN AFEA A6 6.943 

01 

A M 5 5 = 0. 29335897E 

00 

A 25= 

0. 1 2 855684 E 

01 

A*25 = 

0. 33353234E 

03 

NOZZLE DESIGN 


A8= D.29437934E 

01 

AM8= 0. 1 00D000 OR 

01 

A 9 = 

0.29437B94E 

01 

AM9 = 

0. 1 0OOOOOOE 

01 


output 

MIDDLE SPOOL IS DUMMY 


AM = 0.000 


NO AIRFLOW INTO WING 

THE OUTPUT IS IN ENGLISH UNITS 


ALTP= 


T4 = 2892.04 


ETA R= 1.0003 


PCNF 

0. 10231CE 

03 

CNF 

0.102310E 01 

ZF 

0. 8333 n 0E 00 

PRF 

0 . 2996QOF 

01 

wap: 

0.221573E 

03 

WA F 

0. 2215735 03 

PCNC 

0. 1131S5E 

03 

CMC 

0.987300E 00 

7.C 

0.81«i300E 00 

PRC 

0.P46200E 

01 

W ACC 

0.5498805 

02 

WAC 

0. 13 7543 5 03 

T2 

0.519670E 

03 

°2 

0. 100CD0E 01 

T21 

0. 742964E 03 

P21 

0. 299600E 

01 

T3 

0.1457535 

04 

P3 

0. 253522 E 02 

PCBLF 

0.000000 

BLF 

0. 000000 

pcbl: 

0. 160000F 

BLC 

0. 220237E 

02 

PCBLOB 

0.003000 

BLOB 

0.000)00 

PCBLHP 
0.7260 OOE 

00 

3 L HP 

0. 159392E 02 

POBLLP 
0. 650000E-01 

FLLP 

0.1453575 

01 

r 4 

0.2392045 

04 

n 4 

0.239299* 02 

W A3 

0. 115624E 

03 

WFB 

0.274976E 01 

W34 

0.118374E 03 

FAP4 

0.23781 9E-0 1 

ETA 3 

0.100300E 

01 

DPCOM 

0.561DOOE-M 

TFFHP 
0 . 5000 OOF 

02 

CNHP 

0. 2 OOQOOE 01 

DHTCHP 

0. 734297E-0 1 

DHTC 

0.21 2362E 

33 

T5 

0.2103 4 2E 

04 

P5 

0. 5665345 01 

TFFLP 
0. 130000E 

03 

C NLP 

0.2390nOE 01 

DHTCLP 

0.422938E-01 

DHTF 

0.889811E 

02 

T55 

0.1799035 

04 

P55 

0. 2 5 0 7 0 4 E 01 

PCBLDU 

0.20800GE 

00 

3 LDU 

0. 4580935 01 

T24 

0.781926E 03 

P2U 

0.2321035 

01 

T25 

0.791925B 

03 

P25 

0.232103* 01 

WAD 

0. 885053E 

02 

W*D 

0. 00D00C 

WG2it 

O.885053E 02 

FAP20 

0.000030 

ETAD 

0.000000 

DP DOC 

0. SR4000E-P1 

ET AF 

0. 849900S 

00 

ET AC 

0.8136005 00 

ETA^h? 

0.371300E 00 

ETATLP 

0.302100F 

00 

A MS 5 

0.293359E 

oc 

A125 

0. 333683* 00 

T6 

0. 1413495 

04 

P6 

0.271353E 01 

PS6 

O.250328E 01 

A M 6 

0.2'4 3000E 

00 

V5 

0.437208E 

03 

W3* 

0. 22U322P 03 
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MMH sont: 

CONVERGED 


T7 

0.141349E Of 

H FA 

0. 000000 

HG7 

0.224322E 03 

FART 

0.1241 02E-0 1 

ETftft 

n. oooooo 

DRAFT 

0. 5990P0E-01 

PSR 

0. 137620E 01 

AM8 

0.1099005 01 

V3 

0. 167416F 04 

PS 9 

0.137620F 01 

AM9 

0.100000E 01 

V9 

0. 157415E 04 

PS28 

0. ODO^no 

ft *128 

0.000000 

V23 

o . *00000 

PS29 

0.000000 

A12? 

*.909900 

V29 

0. oooooo 

BYPASS 

0.6097025 00 

Ho^xr 

0. 000000 

WFT 

0. 274975 E 01 

M 

0.224322E 03 

VA 

0.000000 

FRD 

0.000000 

CVMNC7 

0.949400E O0 

V JM 

0. 15B944E 04 

CVDNOZ 

0.000000 

VJD 

0.000000 

FGM 

0. 110319E 05 

FOP 

0. 234760 F 04 

CONVERGENT NOZZLE 

RG= 13429.44 


FN= 13429.44 


SFC= 0.73712 


AFTER 1 LOOPS 
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COHHDN 0 . 8333 OOE 00 0.132313E 03 0.571429E 30 

0. 100 0 OOE 01 0.177859E 03 0. 170000E 00 0.826058E 03 

3 • 25488 1 E 01 0.781926E 03 0. 187 31 IE 03 0.161871E 01 

0.161B71E 01 0.000000 0.000000 0.000000 

0.000000 0.000000 0.000000 0.000000 

0.000000 0.000000 0.000000 0.000030 

0.000000 0.584000E-01 0.53*0305-01 D.100000E01 

0.187311E 03 0. 16187 IE 01 0. 135817E 03 0.206645E-01 

0. 274976E 01 0.000000 0.518670E 03 D.518670E 03 

0. 742964E 03 0.1285575 01 0.517369E 03 0.289204E 04 

0. 134363E 03 0.208927E-01 0.283359E 00 0.567671E 03 

0. 437208E 03 0.276217E 01 0.9102155 00 0.9681 1 1 B 00 

3 • 475235E 01 0.985483E 00 0.356278E 00 0.102310E 03 

0.000000 0.549880E 02 0.299600E 01 0.849900E 00 

0. 1 023 tOE 03 0.000000 0.5714295 00 O.1O0OOOE 01 

0.000000 0. 75000QE 00 0.100000E 03 0.000000 

0.360485E 03 0.115624E 03 0.113B95E 02 0.289204E 04 

0.210342E 04 0.547064E 03 0.1337055 01 0.134363B 03 

0. 208000E 00 0.000000 D.233OO0E 01 0.871300E 30 

0.1 OOOOOE 01 0. 1000005 01 0. 1330005 01 0. 1500Q0E 31 

D.274976E 01 0.833300E 00 0.100000E 01 0.100000E 01 

0. 220237E 02 0.111699E 04 3.300000 0.000030 

0 • 742964E 03 0.299600E 01 0.177859E 03 0.16021BE 01 

0 . 458093E 01 0.000000 0.000000 0.000000 

0.000000 0.003000 3.000000 0.000030 

0.000000 0.000000 0.000000 0.000030 

0.134294E 05 0.000000 3.030000 D.100000E 31 

0. 949400E 00 0.000000 0.000000 0.000000 

0.1 241 02E-01 0.000000 0.000000 0.110818E05 

0. 1 34294E 05 0.134294E 05 3.000000 0. 100000B 01 

0. 160218E 01 0. 137648E 03 0.742964E 03 0.742964E 33 

0.457067E 03 0.184 1 87E 01 O.130OOOE 03 0.230000E 01 

0. 1 7567 IE 01 0. 103103E 01 0. 102251 E 01 0.246223E 01 

0.1 30000E 03 0.230000E 01 0.932100E 00 0.422888E-01 

0. 846200E 01 0.813600E 00 0.137649E 03 0.814300E 00 

0.000000 0. 987300E 00 0.846200B 01 0.813600E 00 

3.1 59992E 02 0.000000 0.145357E 01 0. 000000 

0. 885053E 02 0.000000 0.1358175 03 0.206645E-01 

0.310795E 04 0.224322E 03 0.141349E 04 0.271359E 01 

0.1 3971 4E 04 0.243842E 01 0.455909E 03 0.259631E 00 

3.177798E 01 0.294879E 01 0.000000 0.120059B 04 

0.255105E 01 0.350636E 03 0.177793E 01 0.2948798 01 

0.100000E 01 0.141349E 04 0.255105E 01 0.350636E 03 

0.000000 0.843000E 00 0.599000E-01 0.118992E 05 

0. 299600E 01 0.000000 0.253522E 02 0.259932E 33 

0.566534E 01 0.000000 0.268794E 01 0.334481E 03 

0.000000 0.000000 


0 . 1 000 OOE 01 O.0143OOE 00 0.1 181558 03 3.299204E 0 

0. 7B1926E 03 0.2995005 01 3.197312E 03 0.161458E n 

0.383683E 00 0.7919268 03 3.292103E 01 0.1873115 0 

0.000000 0.000000 0.000000 0.00000 

0.000000 0.000000 0.000000 0.00030 

0.000000 3.539702E 00 0.995053E 02 0.00000 

0.885053E 02 0.000000 3.791925E 03 0.232133E 0 

3.178909E 04 3. 259794 B 01 0.457067E 03 0. 184187B 0 

0 . 1 000 OOE 01 0.123913E 03 3. 1 59 10 38 0 1 n.i60218E 0 

0.2892045 04 0.21O3U2E 04 0.54^0543 03 3.1937055 0 

3.418175E 0 1 3. 254 984 E 01 3.1773758 01 C. 2609285 0 

0. 122383E 01 0.500000E 32 O.2OO03OB 31 0.371303E 3 

3 • 2996 OOE 01 0. 9499O3B 30 0.2215735 03 0.00000 

0.8143 00 E 00 3.1023135 01 0.221573E 03 0.9333OOE 0 

0.000000 0.000030 0.003300 0.00000 

0.51867OE 03 0. 1239135 33 0.1591035 01 Q.146753E 0 

0 . 784 6 27 E 03 D. 1834 595 01 0.1 1 B374B 03 3.237319E-0 

0.206927E-01 0. 726300E 00 0.300030 O.5533O3E-0 

3 - 7342 975-01 3. 212352B 03 0.500000B 02 0. 1000003 0 

0 . 1 000 OOE 01 0. 137648E 03 0.5438908 32 0. 1333O3E 0 

0 . 1 000 00 E 01 3. 1300035 3 1 3.137648E 03 0.2749765 0 

0.5610 00 E-01 0. 561003 E-01 0.1023133 33 3.130300E 0 

3.360485E 03 0.221573E 03 0.1376*95 33 3.333)0 

0.000000 0.000030 0.000000 0.00000 

0.000000 0.003003 3.300033 0.03330 

0.000000 0.000303 0.303000 0.00000 

O.IOOOOOE 01 0. 1000005 01 0. 003030 0.00000 

0 . 158944 E 04 0. 274975E 01 0.224322E 03 3. 737 1 21 E 0 

0. 000000 3. 23 4 76 OE 04 0. 1 10819B 05 0.23U760E 0 

O.IOOOOOE 01 0.1000005 01 0.742954B 33 3.177959E 0 

3. 137549E 03 3.152547E 31 0.000030 0.178909E 0 

3.9021005 00 0.0003^3 0.003030 3.03030 

0.000000 0.000330 0.303033 3.03030 

0. 88951 IE 02 0. 109221B 01 0.9605175 00 0.56173BB 0 

0.118165E 03 0.150000E 30 0.9973005 32 0.03330 

0.003000 3.549980E 02 0.1376485 33 0.00000 

3.4500935 01 0.000300 0.2215735 33 3.5493935 0 

0.398790E 02 D.243000E 33 3.2433305 33 3.5942345 0 

3.350635E 03 3.2243225 03 0.1241322-01 0.463560B-O 

0.694294E 01 0.358360E 04 3.141349E 34 0.353536E 0 

3. 137620E 01 3.15741SE 34 0.1090003 01 0. 1&1349E 0 

0.000000 O.12C0595 04 0.1376205 01 0.167416E 0 

D.177798E 01 0.3430005 00 0.5Q9033E-31 3.00000 

0.000000 3.9973953 04 0.2996002 01 0.1269525 0 

0.239299E 02 0. 5864678 3 3 0.556534 E 3 1 3. 4325431? 0 

0.2551 05E 01 3. 253785 E 03 3.282 1035 01 0. 133^355 0 


0. 5 14756E-84 


0.000000 


0.000000 


0.000000 


0.514756E-84 


OUTPUT AM = 0.330 

MIDDLE SPOOL IS DUMMY 

NO AIRFLOW INTO WING 

THE OUTPUT IS IN ENGLISH UNITS 

PCNF 

0. 102 3 1 OE 03 


PCMC 

0.113165E 03 
T2 

0.518670B 03 


PCBLF 

0.000000 


PCBLHP 

0.7260 00E 00 


W A3 

0. 115628E 03 


TFFHP 

0.5000015 02 


TFFLP 

0.130000E 03 

PCBLDU 
0.208300E on 

WAD 

0.884967E 02 


ETAF 

0.P49891E 00 
T6 

0.141358E 04 
T7 

0.141358B 04 
PS3 

0.137622E 01 


PS28 

0.000000 


BYPASS 

0.509619E 00 
CVMNOZ 

0.949U00E 00 

MAIN SONIC CONVERGENT NOZZLE 
CONVERGED AFTER 44 LOOPS 


ALT P- 

0. T4 = 

2892.13 



ET AR= 1.0 

CNF 

0. 1 0231 OE pi 

ZF 

0 . 3 1 337 BE 00 

PRF 

0.299619E 01 

WAFC 

0.221559E 

03 

WAF 

0. 221553 E 03 

CNC 

0. 3 87289 E 00 

zc 

0.814304E n 0 

PRC 

0.846137E 01 

w Ar*r 

0.5 4 93‘ , 0E 

02 

wac 

0.137553E 03 

P2 

0. 1 00000E 01 

T21 

0.742981E 03 

P21 

0.299619E 01 

T 3 

0.146755E 

04 

P3 

0.253533E 02 

3 LF 

0.000000 

PCBLC 

0. 160000E 00 

3LC 

0.220244E 02 

PC BLOB 

0.000000 

BLOB 

0.030300 

BLHP 

3.159897E 02 

PCBLLP 

0.R5O000E-01 

BLLP 

0. 145361E 01 

T4 

0.28921 3E 

04 

P4 

0. 239313E 02 

WFB 

0. 2 75000E 01 

WG4 

0.118378E 03 

FAP4 

0.237331E-01 

ETAB 

0.1 OOOOOE 

01 

9PCDH 

0. 560995 E- 0 1 

CNHP 

0.199997S 01 

DHTCHP 

0.734333E-01 

DHTC 

0.212365E 03 

T5 

0.210350E 

04 

P5 

0.566569E 01 

CNLP 

0.229996E 01 

DHTCLP 

0. 4223 9 1E-0 1 

DHTF 

0.889531E 02 

r 55 

0.173915E 

04 

P58 

0.253313S 01 

° LDU 

0. '4 58108E 01 

T24 

0.781949E 03 

P24 

0.2B2123E 01 

T25 

0.791949E 

03 

P25 

0. 23 21 23E 01 

WFD 

0.000000 

W324 

0. 884957E 02 

FAR24 

0.000000 

ETAD 

0.000000 

DPDUC 

0. 583915E-01 

t?T IP 

0.813597E 00 

ETATHP 

0.R71292E 00 

ETATLP 

0.9021 00 E 00 

AM55 

0.283297E 

00 

AM25 

0. 383563E 00 

P6 

0.271363E 01 

PS6 

0.260314E 01 

AM6 

0.243014E 00 

V5 

0.437243E 

03 

WG 6 

0. 22431BE 03 

W FA 

0.000000 

WG7 

0.224318E 03 

FAP7 

0.12411 5E-01 

ETA A 

0. oooooo 

DPAPT 

0. 598993 E- 01 

AMS 

0. 1 00000E 01 

V8 

0. 1 6742 1 E 04 

PS9 

0 . 1 37622E 01 

AM9 

0.1 OOOOOE 

01 

V9 

0. 157421B 04 

AM28 

0.000000 

V28 

0.000000 

PS29 

0. 000000 

A M2 9 

0.000000 

V 29 

0.000300 

FTPEXT 

0.000000 

WFT 

0.275000E 01 

WGT 

0.224318E 03 

VA 

0.300000 

FPD 

0.000300 

VJM 

0. 158949E 04 

CVDNOZ 

0.000000 

VJD 

0.000000 

FGN 

0.1103205 

05 

FSP 

0. 234772E 04 

FG= 13429.68 


FN= 13429.53 



SFC= 0.73717 
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THIS IS THE S.S. SOLUTION 

1.1399E 04 9.8740E 03 1.3374E 02 2.5511E 00 2.5380E 02 2.5994E 02 2,53532 01 5.3549E 02 2.3212B 00 1.26955 02 

4.0296E 02 3.3450E 02 5.6667E 00 2.3931E 01 2.9962E 00 2.6881E 00 

1 r HE VARIABLE IS NO. 1 

THIS COLUMN OF X = 

-7. 3 1 7 IE 01 -3.0739E 01 -3.27662-01 -1.1R03E-02 4.1193E-01 -6.26642-01 -2. 45492-01 3.1092E 00 -9.32262-33 -2. 35772-31 

2.2132P 00 2.1314E 00 -4.8520E-02 -2.2794E-01 -8.9229E-03 -1.3619B-02 

I3IN = 1 

THE NEXT TRY FOR PVRDOT = 2.1000E-02 

1 THE VARIABLE IS NO. 1 
THIS COLUMN OF X = 

-7.6810E 01 -3.2274E 01 -3.4394E-01 -1.2393E-02 4.3293E-01 -6.5794E-01 -2.5772B-P1 3.2555B 00 -9.7893E-03 -2.17062-01 

2.3252E 00 2.2392E 00 -5.0937E-02 -2.3920E-01 -9.3700E-03 -1.4299E-02 

13 IN = 2 

THE NEXT TRY FOR PVRDOT = 6.4605E-03 

1 THE VARIABLE IS NO. 1 
THIS COLUMN OF X = 

-2.3335B 01 -9.7902E 00 -1.04P4E-01 -3.8113E-03 1.2784E-01 -2.0025E-01 -7.8123E-02 9.9134E-01 -2.97052-03 -5.51222-32 

6.9470E-01 6 . 6957 E-01 -1.5597E-02 -7. 2506E-02 -2.84 18E-03 -4.40U2E-03 

13 IN = 3 

THE NEXT TRY FOR PVRDOT = 6.5946E-03- 

1 THE VARIABLE IS NO. 1 
THIS COLUMN OF X = 

-2.3825E 01 - 1 . 001 BE 01 -1.O736E-01 -3. 97 33E-03 1. 3139E-01 -2.0512E-01 -7. 99455-02 1.00335 00 -3.0451S-03 -5. 7770E-02 

7.11 27E-0 1 6 • 8585E-0 1 -1.5908E-02 -7.41962-02 -2.9137E-03 -4.4701E-03 

13 IN = 0 

THE NEXT TRY FOR PVRDOT = 6.5946E-3^ 

2 THE VARIABLE IS NO. 3 
THIS COLUMN OF X = 

1.9732E 01 -2.0343E 01 -1.6850E-01 -7.1504E-03 7. 83305-02 -1.3911E-01 1.39752-02 -4.7353E-01 -1.33102-32 -2.3541E-01 

-4.9248E-01 -5.1 828E-01 -8.07U7E-03 1.3223E-02 -1.2515E-02 -6.3936E-03 

13 IN = 1 

THE NEXT TRY FOR PVRDOT = 2.1000E-02 

2 THE VARIABLE IS NO. 3 
THIS COLUMN OF X = 

1.9717E 01 -2.1369E 01 -1.768PE-01 -7.5106E-03 8.2510E-02 -1.9845E-01 1.46335-02 -4.95545-01 -1.14575-02 -2.4718E-91 
-5. 166 2E- r * 1 -5. 4375E-0 1 -8.4892E-03 1.3855E-02 - 1.3142E-02 -6.7 167E-03 
13 IN = 2 

THE NEXT TRY FOR PVRDOT = 1.9419E-02 

2 THE VARIABLE IS NO. 3 
THIS COLUMN OF X = 

1.3239E 01 -1.9743E 01 -1.63622-01 -5.9412E-03 7.5903E-02 -1.83685-01 1.35915-02 -4.6017E-31 -1.05925-32 -2.2359F-01 

-4.7846E-01 -5.0350E-01 -7.9342E-03 1. 23645-02 -1.2151E-02 -6.2061E-03 

I3IH = 0 


THE NEXT TRY FOR PVRDOT = 1.9419E-02 



3 THE VARIABLE IS MO. 21 
THIS COLUMN OP X = 

0.0000 -1.8190E-12 -3.13385-02 -3.0195E-06 -1.2791E-02 -5.5843E-14 -1.0559E-14 5. 59435-14 -9.3B19B-15 -3. 19748-14 

1. 1369E-13 1.7053E-13 -2.5645E-15 -1.05585-14 -1.11025-15 7.54955-15 

IGIN = 1 

THE NEXT TRY FOR PVFDOT = 3.0010E-02 

3 THE VARIABLE IS NO. 21 
THIS COLOMN 0? X = 

0.0000 -1.8190E-12 -4.7036E-02 -4.5319E-06 -1.9199E-02 -5.6343E-14 -1. 06585-14 5. 59435-14 -8.9818E-15 -3.19745-14 

1. 1369 E- 13 1.70535-13 -2. 66455-15 -1.06585-14 -1.1102E-15 7.5495E-15 

IGIN = 2 

THE NEXT TRY FOR PVRDOT = 6.0020E-32 

3 THE VARIABLE IS NO. 21 
THIS COLUMN OF X = 

0.0000 -1. 8190 E- 12 -9.4153E-02 -9.0710E-06 -3.8429E-02 -5.5843E-14 -1.0558E-14 5. 58435-14 -3.39195-15 -3. 13745-14 

1.1369E-13 1 .7053E-1 3 -2.6845E-15 -1.05535-14 -1.1102E-15 7.5495E-15 

IS IN = 3 

THE NEXT TRY FOR PVRDOT = 1.2004E-01 

3 THE VARIABLE IS NO. 21 
THIS COLUMN OF X = 

4.01855-01 3.95025-01 -1.9268E-01 -2.11965-04 -9.31535-02 -5.5546E-07 -2.04816-04 6.4551E-03 -3.23765-04 -2.2589E-03 

3.1 548E-03 -7.5327E-04 -6.1424E-05 -1.84795-04 -2.7794E-04 -1.4439F-04 
IGIN = 4 

THE NEXT TRY FOR PVRDOT = 1.6561E-31 

3 THE VARIABLE IS MO. 21 
THIS COLUMN OF X = 

5. 3336E-0 1 5.4212E-01 -2.6585E-01 -3.0777E-04 -1.28295-01 4.2093E-04 -3.7640E-C4 1.1D53E-02 -4. 45335-34 -2.73745-33 

6.1 796E- 03 6.3404E-06 -9.3338E-05 -3.4170F-04 -3.8156E-04 -2.2155E-04 

IG IN = 5 

THE NEXT TRY FOR PVRDOT = 1.6662E-01 

3 THE VARIABLE IS NO. 21 
THIS COLUMN OF X = 

5.3630E-01 5.4541 E-0 1 -2.5748E-C1 -3.09975-04 -1.2907E-01 4.3C32E-04 -3.8023S-C4 1.11555-02 -4.4802E-04 -2.8095E-03 

6. 24725-03 2. 3337E-05 -9.9260E-05 -3. 45215-04 -3.83875-04 -2.23325-04 

IG IN = 0 

THE NEXT TRY FOR PVRDOT = 1.6562E-31 

4 THE VARIABLE IS NO. 18 
THIS COLUMN OF X = 

4.8549E-0 1 5. 9 564 E-0 1 -8.00905-04 -3.0337E-C“ -4.24445-03 4.5*'76e-03 6.9387E-04 -3.99555-03 -1.47255-34 5.3672E-34 

-7. 11115-03 - 1 . 4450E-02 -1.4293E-04 5.41B1E-04 -1.0061E-04 -3.3833F-04 

IGIN = 1 

THE NEXT TRY FOR PVRDOT = 2.1000E-02 

4 THE VARIABLE IS NO. 18 
THIS COLUMN OF X = 

5 . 069 IE- 01 6.1 44SE-0 1 -8.D422E-C4 -3. 2066E-04 -4.4055E-03 4.8619E-03 ' 7 . 1635F,-04 -3.91 53E-03 -1.5436E-04 7.1102E-04 

-7.22325-03 -1.5036E-02 -1.51855-04 5.62605-04 -1.05325-04 -3.5605E-04 

IGIN = 2 

THE NEXT TRY FOR PVRDOT = 2.9749E-01 
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4 THE VARIABLE IS NO. 

THIS COLUMN OF I = 

7 • 4853E 00 7* 6371 E 00 -1,11748-02 -4.5999E-03 -2.9016E-02 7.079 1E-02 7. 00362-03 -1.1 9352-02 -2.741Ug-93 3.31P8E-03 

-6.7440B-02 -1.7154B-01 -3.2351B-03 6.4545E-03 -2.1053E-03 -5.1110E-03 

ISIS = 3 

THE NEXT TRY FOR PVRDOT = 3.2296E-01 

4 THE VARIABLE IS MO. 18 
THIS COLO (IN OF X = 

8.1189E 00 8.2885E 00 -1.2105B-02 -5.1039E-03 -3.1395E-02 7.6857E-02 7.5681E-03 -1.24955-02 -2.9770E-D3 9.60405-33 

-7 • 2774E-02 -1.8588E-01 -3.5186E-03 6.9745E-03 -2.2865E-03 -5.5522E-03 

ISIM » 0 

THE NEXT TRY FOR PVRDOT = 3.2296E-01 

5 THE VARIABLE IS NO. 19 
THIS COLUMN OF X = 

2.9764E-01 3.3295E-01 -7.7204E-04 -1,51 7 IE-04 -7. 1944E-02 2.0837E-03 4.9677E-04 -4.5943E-03 50355-15 -1.5115F-35 

-6 • 0843E-03 -9.3137E-03 -6.4744E-05 4.5946E-04 -5.9319E-05 -1.5342E-04 

istn = i 

THE NEXT TRY FOR PVRDOT = 2. 1000E-02 

5 THE VARIABLE IS NO. 19 
THIS COLOHN OF X = 

3. 0968E- 01 3 . 4915E-0 1 -7. 7388E-04 - 1.5 1 43E-04 -7. 5492E-02 2. 2435E-0^ 5.094 02-04 -4.6495E-03 -8.9995E-05 2.6675F-OS 

-5.150 IE-03 -9.6429E-03 -6.9755E-05 4.71 14E-0U -6. 1965E-05 -1.7450E-04 

ISIM * 2 

THE NEXT TRY FOR PVRDOT = 1.4280E-01 

5 THE VARIABLE IS NO. 19 
THIS COLUMN OF X * 

2.0673E 00 2.0963E 00 -3.3099E-03 -1.2482E-03 -5.0414E-01 1.9802E-02 2. 1195 5-03 -7. 64455-03 -7.3375E-D4 2.3^1E-?1 

-2. 2128E- 02 -4. 9459E-02 -8.2344E-04 1.9540E-03 -5.6105E-04 -1.3538E-03 

IS IN = 3 

THE NEXT TRY FOR PVRDOT = 1.4378E-01 

5 THE VARIABLE IS NO. 19 
THIS COLUMN OF X = 

2.0B06E 00 2.1100E 00 -3.3360E-03 -1.2569E-03 -5. 0760F-01 1.9923E-02 2. 12 86 0-03 -7. 63 1 1 B-0 3 -7.3916E-0& 2.0738E-93 

-2. 2217E-02 -4.974 1 E-02 -8.2946E-04 1.9523E-03 -5.6526E-04 -1.3631E-03 

ISIM = 0 

THE NEXT TRY FOR PVRDOT = 1.4373E-01 

6 THE VARIABLE IS NO. 9 
THIS COLUMN OF X = 

1.8406E 00 6. 6 172E-01 5.1501E-03 2.4570E-04 -1.9900E-02 -1.5722E-02 5. 1967S-03 -1.03355-01 1.3953E-34 3.5763E-03 

-7.2034E-02 -6.7192E-02 1.1057E-03 4.8496E-03 1.2492E-04 2.9665F-04 

ISIM = 1 

THE NEXT THY FOR PVRDOT - 2.1000E-02 

6 THE VARIABLE IS NO. 9 
THIS COLUMN OF X - 

1.9285E 00 6 . 9367E-0 1 5.4355E-03 2.5570E-04 -2.0846E-02 -1.6475E-02 5.43P7B-03 -1.03755-01 1.466&E-34 3.79215-03 

-7. 5376E-02 -7.0390E-02 1.1584E-03 5.075-5E-03 1 . 31 2 IE-04 3.0843E-04 

ISXM = 2 

THE NEXT TRY FOR PVRDOT = 6.9021E-31 


4 ^ 

Ul 
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6 THE VARIABLE IS NO. 9 
THIS COLUMN OF X = 

S.4U57E 01 2.2088E 01 1. 97658-01 5.9094E-03 -6.5715E-01 -5.1162E-01 1.75372-01 -3.49532 00 4.39492-73 1.4168B-01 

-2.4174E 00 -2.2798E 00 3.5173E-02 1.6364E-01 3. 83072-03 8. 15552-03 

13 IN = 3 

THE NEXT TRY FOR PVRDOT = 7.0137E-01 

6 THE VARIABLE IS NO. 9 
THIS COLUMN OF X = 

6.5490E 01 2.2441E 01 2.0082E-01 5.9177E-03 -6.6760E-01 -5.1973E-01 1.78172-01 -3.55132 00 4.46472-03 1.4395E-01 

-2.4557E 00 -2.3159E 00 3.5735E-02 1.6625E-01 3.89142-03 8.2852E-03 

13 IH = 0 

THE NEXT TRY FOR PVRDOT = 7.O137E-01 

7 THE VARIABLE IS NO. 8 
THIS COLUMN OF X = 

-7.0654E-01 -6.11 30B-01 -6.3327E-03 -2.3331E-04 1.00782-02 -6.7603E-03 -4.71352-03 7.14502-02 -1.37112-34 -4. 3*352-03 

4.7439E-02 4. 56922-02 -9.8905E-04 -4.3726E-03 -1. 78092-04 -2.5809B-04 
I3IN = 1 

THE NEXT TRY FOR PVRDOT = 2. 1000E-02 

7 THE VARIABLE IS NO. 8 
THIS COLUMN OF X = 

-7 . 4542E-01 -6.4280E-01 -6.6548E-03 -2.4621E-04 1.0595E-02 -7.1215E-03 -4.95912-03 7.51252-02 -1.96422-34 -4. 35552-03 

4.9915E-02 4. 8059E-02 -1.0403E-03 -4.6004E-03 -1. 86912-04 -2.32472-04 

T3 IN = 2 

THE NEXT TRY FOR PVRDOT =* 2.0730E-D1 

7 THE VARIABLE IS NO. 8 
THIS COLUMN OF X = 

-9.3066E 00 -7. 141 IE 00 -7. 2577E-02 -2.7067E-03 1. 1 1 90B-01 -8.9587E-02 -5.55072-02 7.9255E-01 -2.09452-03 -4.57588-02 

5.4264E-01 5 . 2 051E-0 1 -1.1326E-02 -5.1507E-02 -1.99492-03 -3. 1 325E-03 

I3IN = 3 

THE NEXT TRY FOR PVRDOT = 1.8961E-01 

7 THE VARIABLE IS NO. 8 
THIS COLUMN OF X = 

-9.501 2E 00 -6.52772 00 -6.63552-02 -2.4745E-03 1.0225E-01 -8.1834E-02 -5. 07332-02 7.1534E-01 -1. 91522-03 -4.27562-02 

4 . 95S2B-0 1 4 . 7563E-0 1 -1.0356E-02 -4.707*rg-02 -1.8240E-03 -2.8636E-03 

13 IN * 0 

THE NEXT TRY FOR PVRDOT = 1.8961E-91 

9 THE VARIABLE IS NO. 11 
THIS COLUMN OF X = 

-3.5 174E-0 1 -2 . 9757 E- 0 1 -4.4384B-03 - 1 .5810E-04 -1.3499E-02 -9.3 136E-03 -2.2992S-03 -2. 70422-02 -1.70152-04 -3. 6535E-03 
-1.8618E-02 -1. 38972-02 -4.7123E-04 -2.1765E-03 -1.7268E-04 -1.7090E-04 
13 IN = 1 

THE NEXT TRY FOR PVRDOT = 2.1000E-02 

8 THE VARIABLE IS NO. 11 
THIS COLUMN OF X = 

-3. 9259E-01 -3.12965-01 -4.56O2E-03 -1.5704E-04 -1.4181E-02 -9.7882E-03 -2.4205S-03 -2.8348E-02 -1.78432-04 -3.8476E-03 
-1,94955-02 -1.4561 E-C 2 -4.9692E-04 -2.2912E-03 -1.R106E-04 -1.8089E-04 
13 IN = 2 

THE NEXT TRY FOR PVRDOT = 9.9727F-01 
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8 THE VARIABLE IS 
THIS COLUMN OF X = 
-1.9214B 01 -1 .4494B 01 
-7,1 1 42E-0 1 -5, 3335E-0 1 
ISIN * 3 

THE NEXT TRY FOR PVRDOT 

8 THE VARIABLE IS 
THIS COLOMN OF X - 

-2.0750E 01 -1.5653E 01 
-7.6735B-01 -5.7521E-01 
ISIS = 0 

THE NEXT TRY FOR PVRDOT 

9 THE VARIABLE IS 
THIS COLUMN OF X = 

0.0000 -1*8 190E- 12 
1.1369B-13 1 • 7053E-13 

ISIN = 1 

THE NEXT TRY FOR PVRDOT 
9 THE VARIABLE IS 
THIS COLUMN OF X = 

0.0000 -3.6380E-12 
8.4588E-03 9.9725E-03 

ISIN = 2 

THE NEXT TRY FOR PVRDOT 
9 THE VARIABLE IS 
THIS COLUMN OF X = 

5. 4729E-01 6*01 13E-0 1 

1.0454E-03 -6.2582E-03 
ISIN = 3 

THE NEXT TRY FOR PVRDOT 
9 THE VARIABLE IS 
THIS COLUMN OF X = 
1.1725E 01 9.8375E 00 

B.7273E-02 -2.9457E-02 
ISIN = 4 

THE NEXT TRY FOR PVRDOT 
9 THE VARIABLE IS 
THIS COLUMN OF X = 
7.S117E 00 6 • 4 1 1 4 E 00 

4 • 478 IE-02 -3.1347E-02 
ISIN = 5 

THE NEXT TRY FOR PVRDOT 
9 THE VARIABLE IS 
THIS COLUMN OF X = 
7.6608E 00 6.4536E 00 

4. 5 156E-02 -3. 1488E-02 
ISIN * 0 

THE NEXT TRY FOR PVRDOT 


NO. 11 

-1.9529E-01 -3.2114B-03 
-2.3360E-02 -1.0775E-01 

= 9 • 6865E-0 1 

NO. 11 

-2*10795-01 -3.3543E-03 
-2.5219E-02 -1.1635E-01 

= 9*695 5 E-0 1 

NO. 20 

8.9617E-03 8.5175E-06 

-2.6645E-15 -1.7558E-14 

= 3*001 0E-02 

NO. 20 

9.2855E-03 3.7789E-05 

3.5079E-07 -1.1116E-03 

= 6.0020E-02 

NO. 20 

2.3183E-02 - 2 . 9048E-04 
-1 . 2821E-04 5.5 207 E-0 5 

= 1.2866F 00 

NO. 20 

4.7984B-01 -5.2927F-03 
-5. B257E-03 -7.3874E-03 

= 8 . 15 76 E-0 1 

NO. 20 

3 . 0664E- 01 -4 • 07 4 8 E-0 3 
-3. 6815E-03 -3.95 66E-03 

= 8.21 2GE-0 1 

NO. 20 

3.0867E-01 -4.1 0 22E-03 
-3.707 IE- 03 - 3 * 99 84E- 03 

= 8.2120E-D1 


-5.8079E-01 
-7.8561 E-03 


-6.2663E-01 

-B.4824E-03 


1.491 2E-02 
-1. 1102E-15 


1.9986E-02 
- 1. 9962E-04 


2.1840E-02 

-2.8370E-04 


5.4140 E-01 
-7.7876E-03 


3.3765E-01 
-4. 8658E-03 


3.3991E-01 

-4.8994E-03 


-4.2135F-01 -1. 14058-01 -1.0363? 70 -7.7539B-73 -1. 5599E-01 
-9. 1385E-03 


-4. 5485E-01 -1.2315E-01 -1.1725E 00 -8.377UE-03 -1.6926E-01 
-9.8655E-03 


5.5843E-14 -1.06508-14 5.5343E-14 -9.331 35-15 -3.1374B-14 

7.5495F-15 


5.2849E-03 -1.1735E-03 7.71255-03 -2.1tp9E-04 -3.11 Q 0E-03 

9. 7 37 IE- 0? 


2.3 94 2E-03 5.5384E-05 5.5545E-73 -3.44515-34 -1.4755E-73 

-2.9365E-04 


4.7602E-02 -7.9595E-03 2.1043E-01 -8.9429E-73 -U.7409E-O2 

5.9902E-03 


3.2000E-02 -4. 2 7, 4 78-03 1.21 435-01 -5.5 7395-33 -2. 3533E-72 

-3.9246E-03 


3. 222 IE- 02 -4.3099E-03 1.22340-01 -5.64VE-73 -2. 8775E-02 

3.9510E-03 
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10 THE VARIABLE IS NO, 5 
THIS COLUMN OF X = 

0.0000 -1.8190E-12 -2.6030E-03 1.4415E-04 -3.7263E-04 -5.1384E-03 5.0135E-04 -1.5291E-02 9.9429E-06 -3.0326E-03 

-1.269SE-02 -5.2099E-03 1.1571E-05 4.6941E-04 -1.1102E-15 1.3515E-04 

IS IN = 1 

THE NEXT TRY FOR PVRDOT = 3.0010E-02 

10 THE VARIABLE IS NO. 5 
THIS COLUMN OF X = 

-2.7 209E-0 1 2.87 1 1E-01 -2.6338E-03 1.1297E-04 -6.4521E-03 -5.5752E-03 2.4645 E-04 -1. 09458-02 1.3 1358-34 -2.D190E-03 

-5.6660E-03 -3.8532E-03 2.1621B-04 2.3069E-04 1.1417S-04 1.2241F-04 

IS IN * 2 

THE NEXT TRY FOR PVRDOT = 2.8510E-02 

10 THE VARIABLE IS NO. 5 
THIS COLUMN OF X = 

-2. 5536E- 01 2. 7342E-01 -2.4997E-03 1.0823E-04 -6.1344E-03 -5.3770E-03 2.4199B-04 -9.51578-03 9.5847E-95 -1.9207E-03 

-5 • 4 644E-03 -3.7201E-03 2.0747E-04 2.2638E-04 1.0827E-04 1. 1754E-04 

IS IN = 3 

THE NEXT TRY FOR PVRDOT = 3.872BE 00 

10 THE VARIABLE IS NO. 5 
THIS COLUMN OF X = 

-4.3430E 01 3.5910E 01 -3.3321E-01 9.7761E-03 -9.3519E-C1 -7.4909E-01 1.4117 E-0 2 -1.3103E 00 1.49358-02 -2.4153E-01 

-7. 0357E- 01 -5 . 4429E-01 1.8621E-02 1.3324E-02 1.5841E-02 9.1294E-03 

ISIir = 4 

THE NEXT TRY FOR PVRDOT = 4.0697E 00 

10 THE VARIABLE IS NO. 5 
THIS COLUMN OF X = 

-4.5538E 01 3. 7737 E 01 -3.5009E-01 1.0274E-02 -9.8253E-01 -7.3717E-01 1.50192-02 - 1 . 3 7 7 1 E 00 1.1751E-92 -2.5399E-01 

-7.390 1E-0 1 -5.7167 E-0 1 1.9568B-02 1.4503E-02 1.6648E-02 9.5942E-"3 

ISIS = 0 

THE NEXT TRY FOR PVRDOT = 4.0597E 00 

11 THE VARIABLE IS NO. 13 
THIS COLUMN OF X = 

0.0000 -1. 8190 E- 12 -3.9080E-14 -2.2204E-16 8. 17128-14 -5.5843E-14 -1.065BE-14 5.5343^-14 -9.3S19E-15 19749-14 

1.13 6 9E- 1 3 1 .7053E-13 -2. 6645E-15 -1.05 58E-14 -1. 11028-15 7.5495E-15 

IGIN = 1 

THE NEXT TRY FOR PVRDOT = 3.001PE-02 

11 THE VARIABLE IS NO. 13 
THIS COLUMN OF X = 

0.0000 -1.8190E-12 -3.9080E-14 -2.2204E-1* 8.1712E-14 -5.<943E-14 -1.0658E-14 5.59438-14 -R. 38185-15 -3.1°*UF-14 

1 • 1369 E- 13 1 • 7053E- 13 -2. 6645E-15 -1 .0658E-14 -1.1192E-15 7.5495E-15 

IS IN = 2 

THE NEXT TRY FOR PVRDOT = 6.0020E-02 

11 THE VARIABLE IS NO. 13 
THIS COLUMN OF X = 

0.0000 -1.8 190E- 12 -3.9080E-14 -2.73308-05 -4,50725-03 -5.5843E-14 -1.0659E-14 5.5943E-14 -9. 39138-15 -3. 1?74P-m 

-7.7347E-03 -7.5829E-03 -2.6645E-15 -1.055RE-14 -1.1102E-15 -3.7830F-n5 
IS IN = 3 

THE NEXT TRY FOP PVRDOT = 


1. 20045-01 
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11 THE VARIABLE IS NO. 13 
THIS COLUMN OF X = 

0.0000 -1.8190E-12 -3.90805-14 -5.3552E-05 -8.831SE-03 
-1.5156E-02 - 1 . 4058E-O2 -2.5645E-15 -1.0558E-14 -1. 11028-15 
T3IN = 4 

THE NE IT TRY FOR PVRDOT = 2.4908E-01 

11 THE VARIABLE IS NO. 13 
THIS COLUMN OF X = 

0.0000 -1 . 8 190E- 12 -3.9080E-14 -1.0601E-04 -1.7481E-02 
-2. 9999E-02 -2.9411E-02 -2.6645E-15 -1.0658E-14 -1.1102F-15 
IGIN = 5 

THE NEXT TRT FOR PVRDOT = 4.8016E-01 

11 THE VARIABLE IS NO. 13 
THIS COLUMN OF X = 

0.0000 -3.6380E-12 -4.1595E-33 -1.8593E-04 -3.7174S-02 
-5. 1 237E-02 -4.8551 E-02 3.5079E-07 -1.1116E-03 -1.9962E-04 

I3IN * 6 

THE NEXT TRY FOR PVRDOT = 9.6032E-01 

11 THE VARIABLE IS NO. 13 
THIS COLUMN OF X = 

1.0859E 00 -1.81 18E-0 1 -4.6142B-03 -3.3352E-04 -6.9070E-02 
- 1. 4873E-01 - 1 . 2969E-01 -3.2917E-04 1. 5640E-03 -3.9927E-04 

I3IN * 7 

THE NEXT TRY FOR PVRDOT = 4. 1972E 00 

11 THE VARIABLE IS NO. 13 
THIS COLUMN OF X = 

4.8427E 00 -1.0551E 00 -1.9953B-02 -1.5346E-03 -2. 9521E-01 
-5 • 442 1E-0 1 -5. 5954E-01 -1.7660E-03 6.1499E-03 -1.8968F-03 

13 IN = 8 

THE NEXT TRY FOR PVRDOT = 5.2535E 03 

11 THE VARIABLE IS NO. 13 
THIS COLUMN OF X = 

5.0222E 00 -1.3477E 00 -2.5029E-02 -1.9348E-03 -3.6885E-01 
-8.0437E-01 -6 . 9857E-01 -2.2544E-03 7.5344E-03 -2.3838E-03 

IGIN = 0 

THE NEXT TRY FOR PVRDOT = 5.2535E 00 

12 THE VARIABLE IS NO. 17 
THIS COLUMN OF X = 

0.0000 -1.81 90E-12 -3.9080E-14 -2.2204E-16 8.1712E-14 

1. 1369 E- 13 1. 7053 E- 13 -2.6645E-15 -1.0658E-14 -1.1102E-15 

13 IN = 1 

THE NEXT TRY FOR PVRDOT - 3.0010E-02 

12 THE VARIABLE IS NO. 17 
THIS COLUMN OF X = 

0.0000 -1. 8190 E- 12 -3.9080B-14 -2.2204E-16 8.17128-14 

1.1 369E-1 3 1 . 7053E-1 3 -2.6645E-15 -1.0558E-14 -1.1102E-15 

13 IN * 2 

THE NEXT TRY FOR PVRDOT = 


-5.5843E-14 -1.06535-14 5. 58*35-14 -8.33183-16 -3.19?ag-m 

-7. 4225E-05 


-5 . 6 84 3F- 1 4 -1.0553E-1 4 5. 5 3UF-14 -4.331^5-1 5 -3. 1974E-14 

-1.4693F-04 


-5.2 Q49E-03 - 1 . 17 352-03 7.91255-03 -2.149°S-0y -3.1190E-03 

-1.9 500E-04 


- 1 . 9 642F-03 1. 6783F-0 3 -2.*232E-32 -3. 74115-34 -5.2295E-33 

- 3 . 5 48 0 E- 04 


-7. 7446 E- 03 6.59935-03 -1. 1573B-01 -1. 77588-^3 -2.73<>3F-02 

- 1 . 6 174E-0 3 


-9.3468E-03 9.0852E-03 -1.I193E-31 -2.23205-33 -3.4312E-32 

-2.3408E-03 


-5.S843E-14 -1. 06585-14 5.5343E-14 -8.3818E-16 -3.1974E-14 

7. 5 49 5E- 1 5 


-5 . 5 84 3E- 1 4 -1.0658E-1 4 5.5943E-1 4 -3.3 31 35- 1 5 -3.19 7 4E-14 

7.5495E-15 


6 • 0020E-02 
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12 THE VARIABLE IS NO, 17 
THIS COLUMN OF X = 

0.0000 -1. 8190 E- 12 -3.9080E-14 1.0397E-06 -2.2858E-03 -5.58438-14 -1.0553E-14 5.5343E-14 -8.- 381 OB-16 -3.1974B-14 

1. 1 369E- 1 3 -3.8457E-03 -2.6645E-15 -1. 05588-14 -1.11028-15 7,5495E-,15 

IGIN = 3 

THE NEXT TRY FOR PVRDOT = 1.2004E-31 

12 THE VARIABLE IS NO. 17 
THIS COLUMN OF X = 

0.0000 -1.8190E-12 -3.9080B-14 2.1541E-06 -4.7358E-03 -5.5843E-14 -1. 05582-14 5. 53433-14 -9. 38198-15 -3.1974E-14 

1.1369E-13 -7.9674E-03 -2.6645E-15 -1.0658F-14 -1.1102E-15 7.5495E-15 

IGIN = 4 

THE NEXT TRY FOR PVRDOT = 2.4008E-01 

12 THE VARIABLE IS NO. 17 
THIS COLUMN OF X = 

0.0000 -1. 8190 E- 12 -3. 9080E-14 4.39308-06 -9.6360E-03 -5. 68438-14 -1.0658E-14 5.5343B-14 -8.3818E-15 -3.1974E-14 

1. 1369 E- 13 -1.6212E-02 -2.6645E-15 -1.06588-14 -1.11028-15 7.5495E-15 

13 TN = 5 

THE NEXT TRY FOR PVRDOT = 4.8316F-31 

12 THE VARIABLE IS NO. 17 
THIS COLUMN OF X = 

0.0000 -1.81908-12 -3.9080E-14 8.8417E-06 -1.94388-02 -5.5843E-14 -1.06588-14 5.53438-14 -3.33138-15 -3.11748-14 

1.1 369E-13 - 3 . 27 03E-0 2 -2.6645E-15 -1.05 58E-14 -1.1102E-15 7.5495E-15 

IGIN = 6 

THE NEXT TRY FOR PVRDOT = 9.6032E-01 

12 THE VARIABLE IS NO. 17 
THIS COLUMN OF X = 

0.0000 -1.81908-12 -3.^0808-14 1.77F2E-05 -3.9049E-02 -5.6843E-14 -1.0658E-14 5.5943E-14 -8. 38188-16 -3.19748-14 

1. 13698-13 -6.5695E-02 -2.6645E-15 -1.06588-14 -1.11028-15 7.5495E-15 

13 IN = 7 

THE NEXT fRY FOR PVRDOT = , 1.92368 00 

12 THE VARIABLE IS NO. 17 
THIS COLUMN OF X = 

3 . 9 5 5 2E-0 1 4 . 7 3 93E-0 1 -3.8744E-04 -2 .002 7 E-04 -9.4820E-02 3.7991E-03 6.9572E-04 -5.52068-03 -9. 23498-35 5. 37028-34 

-7. 7955E-03 -1.4507E-01 -1.11088-04 5.4386E-04 -5.7360E-05 -2.6730E-04 

IGIN = 8 

THE NEXT TRY FOB PVRDOT = 8.2593E 00 

12 THE VARIABLE IS NO. 17 
THIS COLUMN OF X = 

1.51938 00 2.0168E 00 7.6251E-04 -1.01208-03 -4.05968-01 2.0086E-02 2. 1979E-03 -5.7397E-03 -3.3423E-04 5.5663E-03 

-1.78518-02 -6.17378-01 -6.1637E-04 2.0306E-03 -2.26648-04 -1.35588-03 

IGIN = 9 

THE NEXT TRY FOR PVRDOT = 8.9522E 30 

12 THE V APIABLE IS NO. 17 
THIS COLUMN OF X = 

1.8955E 00 2.0020E 00 -9.1089E-04 -1. 00948-03 -4.36178-01 1.96798-02 2.49328-03 -1.27428-02 -5.12598-34 3.65338-03 

-2. 5673E- 02 -6.6903E-01 -7. 59758-04 2.299UE-03 -3.8696E-04 -1.31968-03 

IGIN = 0 

THE NEXT TRY FOR PVRDOT = 


8.9522E 00 
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13 THE VARIABLE IS NO. 

THIS COLUMN OF X = 

0.0300 -1.8190E-12 -3.9080E-14 -8.8678E-06 -5.0423E-04 -5.5943E-14 -1.0558B-14 5.6943E-14 -8.3918E-16 -3.1974B-14 

1. 136 9E- 1 3 -3. 86865-04 -2.5645E-15 -1.0658E-14 -1.1102E-15 -1.2609E-05 
IGIN = 1 

THE NEXT TRY FOR PVRDOT = 3.0010E-02 

13 THE VARIABLE IS NO. 12 
THIS COLUMN OF X = 

0.0000 -1.8190E-12 -3.9080E-14 -1.3306S-05 -7.56605-04 -5.5843F-14 -1.0S58E-14 5.5343E-14 -9.3319S-15 -3.1974E-14 

1.1 369E- 1 3 -5 .80495-04 -2.6645E-15 -1.0658E-14 -1.1102E-15 -1.8919E-05 
ISIN = 2 

TRE NEXT TRY FOR PVRDOT = 6.0020E-02 

13 THE VARIABLE IS NO. 12 
THIS COLUMN OF X = 

0.0000 - 1 . 81 90E-1 2 -3.9080E-14 -2.6512E-05 -1.5132E-03 -5.6843E-14 -1.06588-14 5.S343E-14 -8.3810B-16 -3.1974E-14 

1.1 369E- 1 3 -1.16 10E-03 -2.6645E-15 -1.0658E-14 -1.11025-15 -3. 78395-05 
IS IN = 3 

THE NEXT TRY FOR PVRDOT = 1.2004E-01 

13 THE VARIABLE IS NO. 12 
THIS COLUMN OF X = 

0.0000 -1.8190S-12 -3.90 8 0E- 1 4 -5.32265-05 -3.0265E-03 -5. 58435-14 -1.0558B-1 4 5.534 3E-14 -9. 3 91 95-1 5 -3.1974E-1* 

1. 13695-13 -2. 3220E-03 -2.8645E-15 -1.0658E-14 -1.1102E-15 -7.5678F,-"5 
IS IN = 4 

THE NEXT TRY FOR PVRDOT = 2. 40085-01 

13 THE VARIABLE IS NO. 12 
THIS COLUMN OF X = 

0.0000 -1.8190E-12 -3.9080E-14 -9.07 7 OE-05 -1.9176F-03 -5.69035-14 -1.0658B-14 5.53435-14 -9.3319E-16 -3.1974E-1# 

7 . 268 3E-03 2.4816E-03 -2.66455-15 -1.0558E-14 -1.1102E-15 -1.1576E-04 

IS IN = 5 

THE NEXT TRY FOR PVRDOT = ti. 80165-31 
13 THE VARIABLE IS NO. 12 
THIS COLUMN OF X = 

9.9247E-01 1.75155-02 -1.R9985-C3 -1.7*365-04 -7.2601E-03 1.48065-03 2. 01945-03 -2.9592E-02 -2.1343E-04 -3.3325E-03 
-1.6184E-02 - 1 .45^55-02 - 3. 1 * 4 1 E-C 4 1.9749E-03 -2.2926E-04 -1.7893P-04 
IS IN = 6 

THE NEXT TRY FOR PVRDOT = 8.8666E 9^ 

13 THE VARIABLE IS NO. 12 
THIS COLUMN OF X = 

1.81075 01 -6.4604E-01 -3.0C66E-0? -?. 739 n F -03 -1.03C1F-01 3.5734 F -02 3.28392-02 -4.35S7E-01 -4.3510E-03 -5.7700E-02 

-2.4168 E-0 1 -2.2034E-01 -7.27U&F-C3 i.0496*-02 -4.6813F-P3 -3.94315-03 

IS IN = 7 

THE NEXT TRY FOR PVRDOT = 1.3758? 31 

13 THE VARIABLE IS NO. 12 
THIS COLUMN OF X = 

2.8540E 01 -8. 2890E-0 1 -4.U£Ql9- n 2 -5.913lS- n 3 -1.62685-01 5.9591E-02 5.22735-02 -7.75955-01 -5.7194E-03 -3.932SE-32 

-3.R983E-01 -3.5637E-G1 -1.0°36P-D2 4.«33Pi ? -02 -7.2368E-03 -6.9187E-03 

TSIN = 8 

THE NEXT TRY FOR PVRDOT = 1,4299? 01 
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13 THE VARIABLE IS NO. 12 
THIS COLUMN OF X = 

2. 9730E 01 -8.70*42-01 -4.6476E-02 -6.0407E-03 -1.6865E-Q1 5.270QE-02 5.42155-02 -8.05435-01 -5. 33105-33 -9.14545-02 

-4.0382E-01 -3.6915B-01 -1.1374E-02 5.0338E-02 -7.5181E-03 -6.2548E-03 

IGIN = 0 

THE NEXT TRY FOR PVPDOT = 1.4288E 01 

14 THE VARIABLE IS NO. 10 
THTS COLUMN OF X = 

0.0000 -3.6380E-12 -4. 15955-03 -2.5862E-04 -9.1864E-03 -5.2849E-03 -1.17355-03 1.5527E-02 -2.14995*04. -3.1190E-03 

5.4629E-03 3.1605E-03 -5.0135E-04 -1.1116E-03 -1. 99625-04 -2.R112E-04 

IGIN = 1 

THE NEXT TRY FOR PVRDOT = 3.0010E-02 

14 THE VARIABLE IS NO. 10 
THIS COLUMN OF X = 

0.0000 -3.6380E-12 -4.1595E-03 -4.0059E-04 -1.2589E-02 -5.284*5-03 -1. 17358-03 2.0333E-32 -2.14995-34 -3.1133E-03 

3.9630F-03 -2.4956E-04 -7.5246E-04 -1.1116E-03 -1.9962F-04 -&.7056E-04 
IG IN = 2 

THE NEXT TRY FOR PVRDOT = 6.0020E-02 

14 THE VARIABLE IS NO, 10 
THIS COLUMN OF X = 

-6.2617E-01 -6.8933E-01 -1.1250E-02 -5.61S9E-04 -3.8006E-03 -2.7Q31E-02 -7.4835E-03 4.75075-02 -4.7522E-34 -9.4907E-03 

2.5057E-02 2. 5627 E-02 -1.6906E-03 -7.2159E-03 -4. 85375-04 -6. 3162E-04 

IG IN = 3 

THE NEXT TRY FOR PVPDOT = 2.5994E-01 

14 THE VARIABLE IS NO. 10 
THIS COLUMN OF X = 

-3.4406E 00 -3.4482E 00 -5.1329E-02 -2.3626E-03 1.54912-03 -1.2425E-01 -3.5967B-02 2.5293E-01 -2.23505-03 -4.24515-02 

1 . 5453E- 0 1 1 . 5466E-0 1 -7.4206E-O3 -3.45805-02 *2. 2773E-03 -2.5063E-03 

IG IN = 4 

THE NEXT TRY FOR PVRDOT = 3.5684E-01 

14 THE VARIABLE IS NO. 10 
THIS COLUMN OF X = 

-4.7544E 00 -4.7632E 00 -7.0456E-02 -3.2546E-03 2.9223E-03 -1.7068E-01 -4.95635-02 3.4969E-01 -3.3787E-03 -5.8224E-02 

2. 1 434E-0 1 2. 1 422E-01 -1.0229E-02 -4.7645E-02 -3. 1374E-03 -3.5904E-03 

IG IN = 0 

THE NEXT TRY FOR PVRDOT = 3.5684F-01 

15 THE VARIABLE IS NO. 4 
THIS COLUMN OF X = 

0.0000 -1.8 190E- 1 2 4.0510E-04 4.3128E-06 3.0482S-03 -5.5843E-14 -1.0653E-14 5.5943E-14 1.0130B-05 -3.1974B-14 
1.1369E-13 1.7053E-13 -2.6645E-15 -1.05505-14 -1.1102F-15 7.5495E-15 

13 1 N = 1 

THE NEXT TRY FOR PVRDOT = 3.0010E-02 

15 THE VARIABLE IS NO. 4 
THIS COLUMN OF X = 

0.0000 -1.8190E-12 1.7331E-Q3 -3.9492E-05 5.7380E-03 2.2212E-03 -2.1672E-04 9.04355-03 1.0977E-05 1.3109E-03 
7.217 3E-03 3.9439E-03 2. 3541E-05 -2.0292E-04 -1.110 2E- 15 -5. 3379F-05 

13 IN = 2 

THE NEXT TRY FOR PVRDOT = 


6 • 0020E-D 2 
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15 THE V ARIABLE IS NO. 

THIS COLUMN OF X = 

0.0000 -1.8190E-12 3.U516E-Q3 -9.0159B-05 1.07745-02 4.4333E-03 -4.32542-04 1.5665S-02 2.19725-05 2.6165E-03 

1.320 25-02 6. 6952 E- 03 2.7140B-05 -4.0499B-04 -1.1102E-15 -1.3157E-04 

13 IN = 3 

THE NEXT TRY FOR PVRDOT = 1.2DG4E-01 

15 THE VARIABLE IS NO. 4 
THIS COLUMN OF X = 

7, 1 928E-01 2.2771 E-02 2. 3292E-03 -2.4320E-04 1.19865-02 6.9162E-03 -2. 00218-04 1.32085-02-3.04795-04 5.36315-04 

5.619 2E-03 9. 1 895E-04 -2.5950E-04 -1. 88688-04 -3. 44775-04 -2. 37945-04 

13 IN - 4 

THE NEXT TRY FOR PVFDOT = 1.1032E 03 

15 THE VARIABLE IS NO. 4 
THIS COLUMN OF X = 

6.4595E 00 -5.8194E-01 2.0431E-02 -2.3006E-03 1.3963E-01 6.7292E-02 -4.7452E-03 1.75445-01 -3.17338-33 3.32378-03 

9 .44245-02 5.4532E-02 -3.1400E-03 -4.44635-03 -3.5743E-03 -2.1800E-03 

I3IN = 5 

THE NEXT TRY FOR PVRDOT = 1.8393E 00 

15 THE VARIABLE IS NO. 4 
THIS COLUMN OF X - 

1.1749E 01 -8.08565-01 3.5803E-O2 -3.7814E-03 2.28375-01 1.06195-01 -6. 12535-03 2.5393E-01 -5.32318-03 6.1838E-03 

1.2595E-01 6.4543E-02 -5.0577E-03 -5.7793E-03 -6.00825-03 -3.54755-03 

13 IN = 0 

THE NEXT TRY FOR PVRDOT = 1.8393E 33 

16 THE VARIABLE IS NO. 16 
THIS COLUMN OF X = 

0.0000 - 1 . 8 190E- 1 2 -3.9080E-14 5.50805-07 -1. 87225-04 -5.58435-14 -1.06585-14 5.58435-14 -8.38135-15 -3. 13745-14 

1.13695-13 1.7053E-13 -2.66455-15 -1.3558E-14 -1.1102E-15 7.5495E-15 

ISIN = 1 

THE NEXT TRY FOR PVRDOT = 3.00105-02 

16 THE VARIABLE IS NO. 16 
THIS COLUMN OF X = 

0.0000 -1.8190E-12 -3.9080E-14 9.2547E-07 -2.8093E-04 -5.6843E-14 -1.06588-14 5.68435-14 -8.38188-16 -3.19745-14 

1.13698-13 1 . 7053E- 1 3 -2.6645E-15 -1.06585-14 -1.11P2B-15 7.54955-15 

ISIN = 2 

THE NEXT TRY FOP PVRDOT = 6.0020E-02 

16 THE VARIABLE IS NO. 16 
THIS COLUMN OF X = 

0.0000 -1.8 190E-1 2 -3.90805-14 1.65295-06 -5.61855-04 -5.5B435-14 -1.0658E-14 5.53435-14 -8.33188-15 -3.19745-14 

1.1369E-13 i . 7053E-1 3 -2. 66452-15 -1.9558E-14 -1.1102E-15 7.5495E-15 

ISIN = 3 

THE NEXT TRY FOR PVRDOT = 1.2004E-01 

16 THE VARIABLE IS NO. 16 
THIS COLUMN OF X = 

0.0000 -1.8190E-12 -3.9080E-14 3. 3059E-06 -1.1237E-03 -5.6843E-14 -1.0658E-14 5.63435-14 -8.38185-16 -3.19745-14 

1.1369E-13 1.7053E-13 -2.66455-15 -1.0658E-14 -1.1102E-15 7.5495E-15 

ISIN = 4 

THE NEXT TRY FOR PVRDOT = 2.4009E-01 
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16 THE VARIABLE IS 
THIS COLUMN OF 1 * 

0.0000 -1.8190E-12 
1. 1369E-13 4.59 14E-03 

13 IN = 5 

THE NEXT TRY FOR PVRDOT 
16 THE VARIABLE IS 
THIS COLUMN OF X * 

0.0000 -1.8190E-12 
1.1369E-13 8« 9068E-0 3 

IS IN = 6 

THE NEXT TRY FOR PVRDOT 
16 THE VARIABLE TS 
THIS COLUMN OF X - 
3. 0830E-0 1 3.5610E-01 

-7.2489E-03 6.6445E-03 

ISIN = 7 

THE NEXT TRY FOR PVRDOT 
16 THE VARIABLE IS 
THIS COLUMN OF X * 
4.3807E 00 4.7079E 00 

-5.S371E-02 1 • 3582E-0 1 

ISIN = 8 

THE NEXT TRY FOR PVRDOT 
16 THE VARIABLE IS 
THIS COLUMN OF X = 
7.2121E 00 7.7767E 00 

-9.0033E-02 2 . 2739E-0 1 

ISIN = 0 

THE NEXT TRY FOR PVRDOT 


NO. 


-3.9080E-14 5. 3704E-O6 

-2.6645E-15 -1.0658E-14 

= 4.8016E-01 

NO. 16 


-3.9080E-14 1.0916E-05 

-2.6645E-15 -1.0658E-14 

= 9.6032E-01 

NO. 16 


-3.9782E-04 

-7.4446E-05 

= 1.4345E 

NO. 16 

-6.1342E-04 
-1.91 84E-03 

= 2.3735E 

NO. 16 

-8.6033E-0U 
-3. 2 342E-03 


-1.4345E-04 
5. 5 387 E-04 

01 


-2 . 5272E-0 3 
5.17 8 IE-03 

01 


-4.2119E-03 
3. 3327E-03 


4.816 IE-04 
-1. 11028-15 


7. 9 9 00 E- 04 
-1.1102E-15 


-1.1121 E-02 
-3. 9586 E- 05 


-1.4436E-01 

-8.6925E-04 


-2 • 3882 E- 01 
- 1 . 4523E- 03 


-5.6843F-14 -1.0658E-14 5.S943E-1& -9.3818B-15 -3. 1974E-14 

7.5495E-15 


-5.6843E-14 -1.0658E-14 5.5843E-14 -R.3918E-16 -3.1974E-14 

7.549 5E- 1 5 


2. 6 163E-03 5.9942E-04 -5.3535E-03 -6.5531E-05 3.1574E-P4 

-1.86 19E-P4 


4.8174E-C2 5. 81993-03 -2.5294E-02 -1.2350E-03 1.0124F-D2 

- 3. 2296E- 03 


7 . 9 94 7 E- 02 9.0461E-03 -3. S 1 9 2E-3 2 -2 . 3 5 3 4 E- 3 3 1.7331E-72 

- 5. 3 824E- 03 


2.3785E 01 
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T INVERSE = 
1.27445-02 
4.72385-04 
AIN V = 

-3.036 1E-0 1 
9.0641E-03 
9.51 22E-02 
-2.49535-03 
2.40675-02 
2.3034E-04 
9.8543E 00 
-8.83305-02 
5.701 5E-02 
-6.0880E-04 
3.59225-01 
-1.3470E-02 
-1.7695E 00 
1.031 4E-0 1 
-3.6525E-02 
-1.3507E-03 
3.3066E 00 
1.94915-02 
-3 . 9 333E-02 
-1. 43045-03 
2.9448E-03 
-3.7997E-04 
5. 3 30 IE-04 
-8.5734E-06 
3.57195-01 
-4. 9 875E-03 
-5.5675E-01 
2. 5099E- 02 
2.13195 00 
2.2853E-02 
1 • 1 230E-0 1 
- 1 . 408 IE-03 


5.2152E-03 

3.3395E-04 

-1 . 27675-0 1 
8.7402E-03 
- 1 . 0299E-0 1 
-2. 6258E-03 
2.4475E-02 
1.0473E-06 
1.0060E 01 
-2.2562E-01 
5. 78 22E-02 
-1.3630E-03 
1 . 2309E-01 
- 1.27 03E-02 
-1.3579E 00 
9 • 8943E-0 2 
-2.7554E-02 
-1.01 25E-03 
2.7855E 00 
- 1 . 3591E-02 
7.3039E-02 
-1 . 1 065E-03 
-6. 3663E-04 
-3. 2999E-04 
6 • 6855E-04 
-2.2342E-04 
-1.0757E-02 
-4. 5593 E-03 
-5.5779E-01 
2 . 5085E- 02 
-1.4672E-01 
1.1712E-02 
1.2163 E-0 1 
3. 5564E-0 3 


4.4875E-02 
1.235 IE-02 

-1.3682E-03 

-2.0272E-04 

-8.5334E-04 

-4.0857S-05 

-1.2003E-02 

-4.4543E-06 

- 1.4 6 93E-02 
-4. 2708E-03 
-9. 1418E-05 
-2.2730E-05 

1.101 5E- 03 
1 . 9 6 0 IE - 04 
- 1 . 1 8 0 3E-02 
-2. 1542E-03 
-3 . 7 1 05E-04 
-4.439 IE-05 
1.3323E-01 
-1.600 IE-03 
-6.7760E-04 
3 . 787 3E-05 
-1.18235-05 
- 1 . 0 649E-06 
-3.04 1 9E-07 
-2.5372E-07 
-5.7402B-04 
-1.4048E-04 
-8.250 6E- 03 
-1.1978S-03 
6.511 IE-03 
-9. 1774E-04 

- 1 . 3456E- 05 
-5.05 83E-05 


1.2138E 00 
1.171 OE- 0 1 

-4.9360E-05 
-9. 45 52E-04 

- 3. 5 2 0 OE- 05 
6.7086E-05 

-1.3910E-05 
-1. 5491 E- 05 
-5.19 4 9E-03 
8 . 45 5 3E-03 

- 3 . 4 u 4 25-05 
5.37 73E-05 
3.79 4 4E- 05 
9.11 92E-04 

-5. 1475E-04 
-9.7 9 30E-03 
-1.5504E-05 
-2. 0480E-04 
-1.77 06E-03 
-1.7258E-03 
1 . 9886E-05 
2 . 30 70E-05 
-9.1 399E-07 
3.5591 E-06 
-3.3709E-07 
7.6' 7 88E-07 
-7.4509E-O5 
6.21 72E-04 
-3.81 12E-04 
-5.5794F-03 
-5.8616E-04 
-1 .9 487E-03 
-6 . 5 875E-05 
1 .30 32E-04 


2. 7403 E- 02 
1.8105E-01 

1 • 6744E-03 
— 3. 71 31 E— 05 
3.9588E-04 
-6.33685-05 
-5. 7922E-0 3 
-1.7226E-05 
-3. 8106 E- 02 
-2.7753E-03 
-1.391 0E-02 
- 1 . 5490E-05 
-3.66195-03 
2 . 1345E- 05 
2. 1270E-02 
-3.7944E-04 
-1. 1031F-03 
-1.4931E-P5 
1.US72E-01 
-2. 11435-03 
-1.90175-03 
3. 2223E-05 
-1 .7424E-04 
-1. 1 26 1 E- 06 
-1.4566E-04 
-1.2923E-07 
-2.0830E-03 
-9.2856E-05 
3.4221 E-04 
-3.6T40E-04 
4. 1439E-02 
-1.09025-03 
-3.7351 E-03 
-2.27145-05 


5.4851E-C3 
1.564 OE- 02 

-2. 6 1 40E-03 
-5.5 96 5E-05 
-9.57955-04 
-3.2366E-05 
1.93115-05 
-1.00215-05 
9.3 286 E-02 
-6.7390E-03 
5. 1 8 55E-04 
-3. 7353 F- 05 
- 2. 9 508E- 03 
4.544 5E-05 
-1.702 3 E-02 
-5.95705-04 
-8. 0066E-04 
-1.73665-05 
1. 3907E-02 
-1.70545-03 
-1 . 5 236 E-0 3 
1.85705-05 
-4.415 3E-06 
-9.64025-07 
6. 57 18E-06 
-4.4 068E-07 
6.5090E-04 
-7.7 253E-05 
-1. 9987E-02 
-4.20455-04 
1. 9269E-02 
-6.4372E-04 
1.2504 E-03 
-8. 4181 E- 05 


2.0902E-01 

-1.0183 E-03 
7. 08 80 B - °5 
-1.7063B- 05 
9. 13 59 5-03 
5. 33 3 0 E -0 5 
9. 77308-04 
-1.0554 E-02 
-2. 16 772-04 
-1 • 85 93 E-03 
2.9059E-05 
3.8193E-05 
8. 32595-07 
6. 6961 E-04 
-5.30395-03 
-1.1115E-03 
1.41 43 E-04 


1 . 75 0 3E-03 

1. 27918-02 
- 2 . 39 995-03 
5. 00505-04 
-1 . 5155B-02 
-2.0911 E-04 
-1.9*795-02 
1.4991 S-01 
-2.05395-03 
5.2804E-02 
-2.65535-03 
-5.70235-05 
-4.2551E-06 
-9.94745-03 
4 . 09 50E-02 
4.5523E-02 
-5.9733E-04 


4. 31635-01 

-3.38055-05 
-5.52395-05 
-2.01055-05 
-3.51345-03 
-2.32555-05 
2.44905-05 
-3.98405-34 
- 1. 47465-05 
-2.43505-03 
2.35515-05 
-1.05446-05 
-1.31195-07 
-9.5222B-05 
-3.60535-04 
-9.65916-04 
-3.21935-05 


1 • 9355E-03 

-3. 53545-04 
-1. 19215-03 
-1.26085-04 
1.16575-02 
5.69285-05 
7. 8958E-04 
-3.9943E-03 
-2.9617E-04 
-1 • 2420E-02 
-4.91415-04 
-1 . 5209E-05 
1 • 2139E-06 
-1. 1 297E-03 
-6. 81825-03 
1.12216-03 
2.65395-04 


n h o\ vo 


Oi 


A = 

-5.0565E 00 
8.3973E-02 
2 . 3 3 46 F- 02 
3.567 IE 01 
1.0294G-02 
2. 1929E-02 
-2.9561E-04 
-5*491 8E- 04 
5. 0849E-03 
7.3962E-02 
1- 1725E 00 
7. 1633E-01 
6 • 6468E-0 1 
-1.0 9 32E- 03 
2.2990E-01 
2.3363E-01 
7.7884E-04 
9.0396E-04 
1 . 2849E-0 1 
1.010 IE-01 
-3.9575E 00 
-3.Q769E 03 
-2 .2171 E- 01 
3.7857E 03 
-9.001 0E-02 
9.4546E 00 
3.2134E-02 
-1. 7387E-02 
• 5033E-03 
. 2289E- 03 
• 5 4 09E-03 
. 6 1 85E 00 


- 3. 07 10E-02 
-5.7299E-02 
-4.8023E 00 
-4.3288E-02 

1 . 6695E-02 
8. 1418 E-01 
-8.36 54E-04 
-2.7182E-01 
7.9130 E-0 3 
3.6321E 01 
-2 • 0090 E-0 1 
4.1 844E-02 
-3.6682E-03 
4. 6000E-04 
-7.2786E-02 
-3 • 5 8 29E-0 1 
1 . 1 3 86E-03 
6 . 0542B-02 
9.5445E 00 
1.1290E-01 
1.9362E 01 
2.1250E 00 
- 1 . 6654 E 01 
-4.0282E 03 
9.6115E-01 
7. 1001E-02 
-1.81425-02 
-2.7973E-03 
4.7999 E-0 1 

- 2 . 6589E-03 
-6.5289E-01 

2.5525E 01 


-2. 9468E- 01 
-3.4526E 03 
3.0603E 00 
1. 1222E 04 
-7.5582S 01 
3.5630E 01 
-4. H383E-02 
-7.5532E-01 
4.9072E 01 
4.3765E 01 
6 . 2355E- 01 
1.21368 02 
3.3230E-03 
9.8476E-02 
-2.3702E 00 
2.4379E 01 
6.2887E-01 
2.5044E 00 
1.1839E 00 - 
-2.9718E 02 
-3.8123E 01 
-3.5180E 04 
-5.2295E 02 
7.1729E 04 
-2.4339E 00 
-6.R456E 03 - 
-3.5590E-02 
3.5362E 01 - 
-3.0407E-02 
8.2812E 00 
-1.5944E 01 
4.6443E 03 


3.9335E 01 
4 . 5 1 47 E 02 
2.2886E 02 
5.3972E 02 
1.0153E 04 
2.3794E 02 
1.2232E 03 
3.4222E 00 
4.6135E 04 
5.1396E 01 
5.1426F 02 
3 . 57 77 E 03 
5.9720E 00 
3.0318E 03 
9.7965E 02 
3.2969E 04 
7. 5500E 02 
1.2848E 01 
1.4713E 02 
1 . 592 IE 04 
1 .5028E 03 
5.2546E 04 
2.3339E 06 
5.3449E 03 
1.4322E 02 
-8.3737E 02 
5. 1 4 26 E-0 1 
-5.5485E 03 
5.1570F 00 
9.6304E 02 
8.7379E 04 
-1.0187E 02 


-5.3391 E-01 
-1.4176F 04 
-3. 1802E-02 
-1*31358 03 
2. 2164 E-01 
1 .6168E 04 
4.1008E-01 
-9.0175E 00 
-7.3045E 01 
3.3498E 02 
-4.8913E-02 
1.3736E 03 
-2.2886E-03 
1.P012E 03 
4. 504 0E- 02 
1.4294E 03 
1.6265E-02 
1 . 455 IE 03 
6 . 3233 E-01 
-6.4339E 04 
8.1694E 00 
1.4233E 04 
-1.19798 01 
-6.6422E 04 
1. 5497 E-01 
2.0386E 03 
1.631 IB-02 
2.3932E 02 
-2. 11478-02 
-6.0850E 03 
-3.7206E-01 
-2. 1 588 E 03 


C = 

-6 . 4699E- 07 -2.0282E-06 6.B625E-05 -4.4260E-01 6.5684E-06 

-9.7537E-07 9.5610E-08 -1.925OE-03 -6.8^42E-03 -7.9299E-03 

1. 1 987E-02 4.64 34E-02 -1.2509B 00 B.0195E 03 -7.7002E-02 

4 . 800 IE-02 -5.6520E-03 3. 6014E 01 1.6665E 02 6. 3557S 01 

1.1337E-02 4.6434E-02 -1.2509E 00 8.0195E 03 -7.70025-02 

4.8001E-02 -5.6520E-03 3.6014E 01 1.6665E 02 6.3557E 01 


-2.60475 02 
4.3767E 00 
-7.0417E-C1 
-1.6550E 04 
2. 3439E 00 
-2.7766E 03 
8.5963E-03 
7.8874E 02 
3 . 5386E-01 
3 . 9 3 0 0 E 04 
-1.6955E 02 
-8.044 IE 02 
7.3205E 00 
-6.1656E 00 
3.7147E 02 
9.3226E 02 
-7.4471E-02 
-2.0622E 02 
1.9940E 01 
6 . 944 IE 00 
-7.7309E 01 
1.2376E 05 
1.0143E 02 
-2.3473E 06 
-7.9874E 00 
6.8357E 03 
-1.1417F 01 
-9.611 0E- 01 
3.1 878 E 00 
-2.4889E 00 
1.5765E 00 
-7.7551E 04 

2.3009E-05 
1. 1598E-02 
-5. 92158-01 
-2.0253E 02 
-5.9215E-01 
-2.0253E 02 


2.0381E 03 
-5. 2383B 02 

2 . 44*105 02 

3 . 27 84 E 00 
-5.9434E 01 
-8.0099E 03 
-3.0473E 03 
-3.4792E 04 
-1.2388E 01 
-1.57128 04 
-4.3532E 04 
-5.8164E 03 

1.61098 03 
5. 22778 03 
-9.65U5E 02 
8. 2207 E 01 

6.6218E-03 
-1.60558 02 
-1.60538 02 


2.7527E 01 
6.5972E-01 
1. 91395-01 
-5.38168-03 
5.0753E-02 
3 . 24 09 E 00 
2.5755E-02 
-2.5199E 02 
1.42978-02 
1.3291E 00 
1.9199E 03 
1.95718 00 
-1.21318 01 
4.95548 00 
-5.12378-02 
3.36148-02 

-2. 14318-05 
2.82528-01 
2.32528-01 


5.35458 01 
3.10518 03 
-2.40078 04 
3.57458 02 
3.32018 03 
-1.94978 03 
-3.21358 01 
-1.27098 03 
-2.03908 03 
7.2239E 04 
-2.03358 04 
-4.00408 05 
-2.22428 03 
-2. T 7638 02 
5.37498 03 
-1,22118 04 

2.27358-02 
-3.17488 02 
-3.17488 02 


5.3342E 02 
-5. 023 1 E 02 
7. 0109E 01 
3. 1630E-02 
-2.7019E 00 
2.6140E 02 
-4.6793E 01 
3. 5757E 00 
-9. 2605E-01 
-7.8616F 02 
7.50048 02 
-9.2325E 01 
1. 1273E 01 
-1. 84998 00 
3.29058 00 
-4.15328 00 

3.135 IE-05 
-1.16738 00 
-1.15738 00 
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OUTPUT 


0 


AM = 0.030 ALT p= 


T4 = 2900.59 


ETAR = 1. 


MIDDLE SPOOL IS DUMMY 


NO AIRFLOW INTO WING 

THE OUTPUT IS IN ENGLISH UNITS 


PCNF 


CNF 

ZF 

PR F 

WAF3 

WAP 

0. 102552E 

03 

0.102551E 01 

0.834671E 00 

0.300924E 01 

3.222330E 03 

0.222303B 03 

PCNC 


CNC 

zc 

PRC 

W ACC 

WAC 

0. 1 18482E 

03 

0. 99887 1E 00 

0.814720E 00 

0.848852E 01 

0.551328B 02 

0.13B473E 03 

T2 


P 2 

T21 

P21 

T3 

P3 

0.518670E 

03 

0.1000008 01 

0.744583E 03 

0 . 300924E 01 

3.1471458 04 

0. 2554U0B 02 

PCBLF 


BLF 

PCBLC 

BLC 

PCBLOB 

BLOB 

0.000000 

0.000000 

0. 1 50000E 00 

0.221552E 02 

0.000000 

0.000000 

PC8LHP 


BLHP 

PCBLLP 

BLLP 

T4 

P4 

0.726000E 

00 

0. 160847E 02 

0. $6 QOOOE-O 1 

0. 1 46 224 E 01 

0. 290059E 04 

0. 241114E 02 

W A3 


WFB 

H<34 

FAR4 

ETAB 

DPCDM 

0.116315E 

93 

9.277750E 01 

0.119092E 03 

0.238793E-01 

0.1 OOOOOE 01 

0. 560359E-01 

TFFHP 


CNHP 

DFfTCHP 

DHTC 

T5 

P5 

0.499981E 

02 

0. 200 24 1 E 01 

0. 734520 E- 01 

0.213088B 03 

0.210970B 04 

0. 57054 4 E 31 

TFFLP 


:nlp 

DHTCLP 

DHTF 

T55 

P55 

0. 130079E 

03 

0.230199E 01 

0.423525E-01 

0.893510E 02 

0. 1794 15 E 04 

0. 270347E 01 

PC0LDU 


BLDU 

T24 

P24 

T25 

P25 

0.208000E 

00 

0.460828E 01 

0.7839 4 OE 03 

0.29341BE 01 

0.733940E 03 

0.283418F 01 

WAD 


WFD 

WG24 

FAR24 

ETAD 

DPDUC 

0 • 884383E 

02 

0.000000 

0.884393E 02 

0.000000 

0.000000 

0. 5817378-01 

ETAF 


FTAC 

ETATHP 

ETATLP 

A M55 

AM 25 

0.847718E 

00 

0. 3 1 3 972 E 00 

0.871273E 00 

0.902172E 00 

0. 28335 1 B 00 

0. 391747B 00 

T6 


P6 

PS6 

AM6 

V 6 

W56 

0. 141910E 

04 

0.27232SE 01 

0. 262221E 01 

0.243037B 00 

0.438078E 03 

0.2250778 03 

T7 


WFA 

WG7 

FAF7 

ETA A 

DP AFT 

0. 141910E 

34 

0.000000 

0. 225077E 03 

0.124944B-01 

0.000000 

0. 59 89 72 F- 0 1 

PS8 


AM8 

V9 

PS 9 

AM9 

99 

0. 1393R7E 

01 

0. 100900E 01 

0. 1577 38 F 04 

0.138387E 01 

0.100300S 01 

0. 1 5 77 39 B 04 

PS28 


AM28 

V28 

PS29 

A M2 9 

V29 

0.000900 

0.900000 

0.000000 

0.000000 

0.009000 

0.000300 

BYPASS 


HPEYT 

WFT 

WGT 

VA 

FRO 

0.6054C3E 

00 

0.000000 

0. 27775 OE 01 

0.225077E 03 

0.000000 

0. C000PO 

CVMNOZ 


V JB 

CVDNOZ 

VJD 

PGM 

PIP 

0.949400E 

00 

0. 1 5925 OE 04 

0.000000 

0.000030 

0.1114 05 E 05 

0. 23954&E 04 

MAIM SONIC CONVERGENT NOZZLE 


FG= 13536.00 


FN= 13536.00 


SFC= 3.73370 


CONVERGED AFTER 9 LOOPS 


0000 
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output 


AM = 0,000 

ALTP^ 

o 

t-3 

4= 

It 

2891.96 


ETA P= 1.0 

MIDDLE SPOOL IS DUMMY 








NO AIRFLOW 
T3E OUTPUT 

INTO WING 

IS IN ENGLISH UNITS 









PCNF 

0.102579E 

03 

CNF 

0.102579E 01 

ZF 

0. 825774E 00 

PRP 

0. 299893E 01 

W AFC 

0.222795S 03 

WAF 

0.222784F 03 



PCNC 

0. 1 1842 IE 

03 

CNC 

0.989320E 00 

ZC 

0.814219E 00 

PRC 

0.949040E 01 

WACC 

0.551772E 02 

W AC 

0. 1 377 79 E 03 



T2 

0.51867 OF 

03 

P2 

0.1 OOOOOE 01 

T21 

0.743143E 03 

P21 

0.299393E 01 

T3 

0.146874E 04 

P3 

0. 253772E 02 



PCBLF 

0.000000 

BLF 

0.000000 

PCBLC 

0.160000E 00 

BLC 

0.220446E 02 

PCBLOB 

0.000000 

BLOB 

o. oooooo 



PCBLHP 

0.726000E 

00 

BLHP 

0.1 60044E 02 

PCBLLP 

0.660000E-01 

BLLP 

0.1 45494E 01 

T4 

0.289196E 04 

P4 

0. 239530E 02 



W A3 

0. 115734E 

03 

W FB 

0.275000E 01 

WG4 

0.118484E 03 

PA R 4 

0.23761 3E-01 

ETAB 

0 . 1 OOOOOE 01 

DPC3M 

0. 55 1209 E-0 1 



TFFHP 

0.499974E 

02 

CNHP 

0.200437E 01 

DHTCHP 

0. 7354 34E-0 1 

DHTC 

0.212685E 03 

T5 

0.210247E 04 

P5 

0.555582E 01 



TFFLP 
0. 130333E 

03 

C NLP 

0. 230656E 01 

DHTCLP 

0. 42534 7E-0 1 

DHTF 

0.894282E 02 

T55 

0. 178644E 04 

P55 

0. 267101E 01 



PCBLDU 

0.208000E 

00 

BLDU 

0.458528E 01 

T24 

0.781733E 03 

P24 

0.231184E 01 

T25 

0.731733E 03 

P2 5 

0.231184E 01 



WAD 

0. 895909E 

02 

WFD 

0.000000 

WG24 

0. 895909E 02 

FA R 24 

0.000000 

ETAD 

0.000000 

DPDUC 

0. 592483E-01 



ETAF 

0.847070E 

00 

ETAC 

0. 314197E 00 

ETATHP 

0.871218E 00 

ETATLP 

0.902435E 00 

AM55 

0.295327E 00 

A125 

0. 3903 1 3 E 00 



T6 

0. 140908E 

04 

P 6 

0.269846E 01 

PS6 

0.259177E 01 

AMS 

0 . 245431 E 00 

V6 

0. 440999 E 03 

WG6 

0. 225534E 03 



T7 

0.140908E 

04 

WFA 

0.000000 

WS7 

0.225534E 03 

FAR7 

0.123437B-01 

ETA A 

o. oooooo 

OPAFT 

0. 6045 55 E-91 



P S 8 

0.1367565 

01 

O.IOOOOOS 01 

V8 

0. 1671 6 1 E 04 

PS9 

0 . 1 3675 6E 01 

AM9 

0.1 OOOOOE 01 

V9 

0. 15 71 6 1 E 04 



PS28 

0.000000 

A M 28 

0.000000 

V2 8 

0.000000 

PS29 

0.000000 

AM29 

0. oooooo 

V29 

0.000000 



BYPASS 
0. 6 16972E 

00 

HPEXT 

0.000000 

WFT 

0. 2750 OOF 01 

H 3 T 

0 • 225534E 03 

VA 

0.000000 

FPD 

0. OOOOOO 



CVMNOZ 

0.949400E 

00 

VJM 

0.158703E 04 

CVDN3Z 

0.000000 

VJD 

0.000000 

PGM 

0.11124AE 05 

F3P 

0. 23166 1E 04 

MAIN SONIC 

CONVERGENT 

NOZZLE 


PG= 13441.39 


F N = 13441.39 


S?C~ 0.73663 


CONVERGED AFTEP 10 LOOPS 


B * 


-3.3971E 

02 

-1.8844E 

01 

-7. 6357E 

00 

8.1031E 

01 

2.7458E 

01 

-3.6972E 

01 

-7. 3679E- 

■01 

-7.4372E 

01 

2.5007E 

01 

- 2 . 0494 E 

03 

8.0562E 

01 

-5.9852E 

01 

4.4730E 

00 

-1.0116E 

00 

3.3675E 

04 

-4.6442E 

01 

1.9901E 

00 

-2.8772E 

00 

5. 347 IE 

02 

- 1 . 248 0 E 

01 

5. 3638E 

03 

-1.0989E 

02 

2.0804E 

03 

1. 1746 E 

03 

9. 2 6 01 E 

00 

-3.0955E 

01 

9.7612E 

00 

-1.6070E 

00 

-1.0343E 

01 

-3.4356E 

00 

-5.7335E 

00 

4.6618E 

01 

2.671 3E- 

■01 

-2.4535E- 

-01 

2. 9886E 

01 

4.4594E 

03 

2. 9986E 

01 

4.4594E 

03 


AR = 

-5.84G0E 00 
-2.6600E-01 ■ 
3. 5 36 1 E-02 
-1.0269E-03 ■ 
-5.3101E-02 
1 • 2848 E 00 
6.7089E-01 • 
4. 1 724E-01 
1.4055 E- 03 
BP = 

2.0662E 02 
-2.8947E 02 
6.5854S 01 
-6. 733 6E-01 
1.2090E 02 
3.0057E 02 
-2.9802E 01 
3. 3730E 04 
-2. 3988E-0 1 


1-9103E 00 
5. 4974 E 00 « 
1.7256E 00 • 
■2.0348E-03 
3. 6424K-02 
1.3330E 00 
1 . 2437 E-G 1 
8.1581E-02 ■ 
1. 1600B-01 

2.3575E 01 

1.8122E 01 
-4.5920E 01 
-7.4075E 01 
-2.0314E 03 
-5.6996E 01 
-4.3939E 00 
-5.8417E 01 
-3.8822E 00 


3.2736E 00 
8 . 0566E-O 1 
7.5892E 01 
2. 3390E-01 
3.9359E 01 
1 . 167 IE 00 
1. 3357E-01 
2.9698E 00 
6.6580E-01 


CP = 

-5.5621 E-07 
1 • 2 34 2E- 02 
1. 2342E-02 


2.9563E-06 

5.1938E-02 

5.1933E-02 


6.7167E-05 
1.22B4E 00 
1.2284E 00 


DR = 

2. 67 1 5E- 01 
2. 9270E 01 
2. 9270E 01 


-2.4533E-01 
4.4590E 03 
4.4590E 03 


4.8070E 03 
5. 3 7 08 E 03 
3.8571E 03 
2.7788E 02 
2.7522E 03 
3.1032E 02 
5.1651E 01 
4.3834E 02 
5.1543E 02 


1.5055E-01 
-1.6537E-01 
2. 6559E-Q1 
4.0726E-01 
-7. 3122E 01 
2.5177E-01 
-4.7405E-02 
1. 3473E-01 
1 . 2537E-02 


-2.3179E 02 
1.2807E 00 
3.7053F 00 
-1.4 569E-02 
-1.7047B 00 
-1.9499E 02 
2.3472E 00 
3.0396E 02 
1.991 IP-01 


2.0889E 03 
1.2805E 03 
- 1 . 6503 E 02 
5. 99 31 E 00 
1. 56112 02 
3.4758E 01 
-1.9902E 02 
-3. 7220 E 03 
-1.57135 01 


3.5559E 01 
9.4515E 00 
3.0925B 00 
-1 . 0465E-0 1 
2.37565 01 
1.3915E 01 
2.4825E 00 
-2.2243E 02 
2.31795-01 


-4.4934E 

03 

-3.5689E 

03 

-6.385 3E 

03 

2.531^5 

02 

-3 . 3977 E 

03 

2.73588 

03 

9.3598B 

02 

-5.7709E 

01 

-5.9552B 

02 


-4.3107E-01 
7.9221E 03 
7.3 221E 03 


6.5199E-C6 
-7. 6378 E- 02 
-7.M78E-02 


3.51 67E-C5 
-9.1 569E-0 1 
-9.156 9E-01 


5.8821 E-05 
-9.2350E-01 
-9.23505-01 


-2.6 394 E-05 
4.11 35E-0 1 
4.1135S-01 


1 .35926-32 
-2.3808E 02 
-2.3809B 02 
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TlHFlSEC) TIMEtSEC* 

(a-1) With 3-percent step change in main fuel flow. (a-2) With 3-percent step change in nozzle area. 

la) Comparison of full-order linear and nonlinear runs. 







TIHClSfC) I JM< C3LO 

<b-l) With 3-percent step change in main fuel flow. 0,-2) With 3-percent step change in nozzle area. 

(b) Comparison of reduced-order linear and nonlinear runs. 

Figure 3. - Response of state 3 - compressor -exit pressure. 



□ Nonlinear 
o Linear 



{a -2) With 3-percent step change in main fuel flow. 


(a) Comparison of full-order linear and nonlinear runs. 


(a-2) With 3-percent step change In nozzle area. 




ArrrCBL'RNCQ EXIT PRESS URL PST A 


o 



T I M 1 ' l .1 • ’ , >■' 1 * ’ 

(a-1) With 3-percent step change in main fuel flow. (a-2) With 3-percent step change in nozzle area. 

fa) rnmnaricon pf fii||-prrW (inqpr qnd nqplipqpir n'HS, 












TiMr<srn> TiMr<r>cc) 


fl)-l) With 3-percent step change in main fuel flow. With 3-percent step change in nozzle area. 


(b) Comparison of reduced-order linear and nonlinear runs. 
Figure 7. - Response of state 7 - afterburner-exit internal energy. 



□ Nonlinear 
o Linear 




T I Mf (“iLO 

(a-1) With 3~percent step change in main fuel flow. 


0 b JN3 “INI 11X3 d0i5n9WG 



T I Mf (SCO 

(a -2) With 3-percenvstep change in nozzle area. 










(a) Comparison of full-order linear and nonlinear runs. 


(a-2) With 3-percent step change in nozzle area. 



o 

c/ 


3.0 0 - 



I I I I I 1 1 I 

0.75 i.00 1.0‘j i . r i0 1.70 r.0o ’ . ?.,b 

T I m r ( r . C C > 

tb-1) With 3-percent step change in main fuel flow. 


.7 1 — I 1 I ! I I l_ 

0.00 0.?b 0. 50 0.75 1.00 1.21, 1.50 l .75 

T I MC (SCC) 

(b-2) With 3-percent step change in nozzle area. 


lb) Comparison of reduced-order linear and nonlinear runs. 
Figure 10. - Response of state 10 - fan-exit internal energy. 




(a-1) With ^percent step change in main fuel flow. 


(a-2) With 3-percent step change in nozzle area. 


(a) Comparison of full-order linear and nonlinear runs. 












lb-1) With 3-percent step change in main fuel flew. 



- - 1 OF — 

1 1 i I i 

B.’‘> 1.00 l. r »0 l.?S 

T IMf. (SCC'* 

(b-2) With 3-percent step change in nozzle area. 



lb) Comparison of reduced-order linear and nonlinear runs. 
Figure 13. - Response of state 13 - high turbine-exit pressure. 
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la-1) With 3-percent sten rhann#? in main fuel flow. 


(a-2) With 3-percent step change in nozzle area. 
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(a-2) With 3-percent step cnange in nozzle area. 
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(b-1) With 3-percent step change in main fuel flow. 
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(b-2) With 3-percent step change in nozzle area. 


(b) Comparison of reduced-order linear and nonlinear runs. 
Figure 15. - Response of state 15 - low turbine-exit pressure. 
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(a-2) With 3-percent step change in nozzle area. 
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(b-1) With 3-percent step change in main fuel flow. 





lb) Comparison of reduced-order linear and nonlinear runs. 
Figure 16. - Response of state 16 - low turbine-exit internal energy. 






(b-1) With 3-percent step change In main fuel flow. 
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(b-2) With 3-percent step change in nozzle area. 



(b) Comparison of reduced-order linear and nonlinear runs. 
Figure 17. - Response of output 1 - specific fuel consumption. 
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(a-1) With 3-percent step change in main fuel flow. 

to) Cnmuarison of full-order linear and nonlinear runs. 
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(a-2) With 3-percent step change in nozzle area. 
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(a-1) With 3-percent step change in main fuel flow. 
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(a-2) With 3-percent step change in nozzle area 


W Ovnartsnn of fuf l-order linear and nonlinear runs, 
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to-1) With 3-percent step change in main fuel flew. 


to) Comparison of reduced-order linear and nonlinear runs. 
Figure 19. - Response of output 3 - net thrust. 


(b-2) With 3-percent step change in nozzle area. 
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